Commits

Anonymous committed dd1d650

literals are back in

  • Participants
  • Parent commits 7f14762
  • Branches 3.0.0

Comments (0)

Files changed (3)

File data-generators-literals.scm

     (let* ((c (read-char port))
            (c (cond ((assq c literal-delimiters) => cdr)
                     (else c))))
-      (finish (read-range-literal/delim c port))))
+      (finish (read-literal/delim c port))))
 
   (define (read-literal/delim delim port)
     (let loop ((c (peek-char port)) (exps '()))

File data-generators.setup

 (compile -d0 -O2 -J -s data-generators.scm)
 (compile -d0 -O2 -s data-generators.import.scm)
 
-; (compile -d0 -O2 -J -s data-generators-literals.scm)
-; (compile -d0 -O2 -s data-generators-literals.import.scm)
+(compile -d0 -O2 -J -s data-generators-literals.scm)
+(compile -d0 -O2 -s data-generators-literals.import.scm)
 
 (install-extension
  'data-generators

File tests/run.scm

 
 
 
-;; (use data-generators-literals)
+(use data-generators-literals)
 
-;; (test-group "range syntax"
-;; 	    (test-group "inclusive"
-;; 			(test "neg/inf to upper"
-;; 			      (range (gen-current-fixnum-min)  5)
-;; 			      #i[.. 5])
-;; 			(test "lower to pos/inf"
-;; 			      (range 3 (gen-current-fixnum-max))
-;; 			      #i[3 ..])
-;; 			(test "lower .. upper"
-;; 			      (range 0 10)
-;; 			      #i[0 .. 10]))
-;;             (test-group "exclusive"
-;; 			(test "neg/inf to upper"
-;; 			      (range (add1 (gen-current-fixnum-min)) 5)
-;; 			      #i[... 5])
-;; 			(test "lower to pos/inf"
-;; 			      (range 3 (sub1 (gen-current-fixnum-max)))
-;; 			      #i[3 ...])
-;; 			(test "lower ... upper"
-;; 			      (range 1 9)
-;; 			      #i[0 ... 10])))
+(test-group "range syntax"
+	    (test-group "inclusive"
+			(test "neg/inf to upper"
+			      (range (gen-current-fixnum-min)  5)
+			      #i[.. 5])
+			(test "lower to pos/inf"
+			      (range 3 (gen-current-fixnum-max))
+			      #i[3 ..])
+			(test "lower .. upper"
+			      (range 0 10)
+			      #i[0 .. 10]))
+            (test-group "exclusive"
+			(test "neg/inf to upper"
+			      (range (add1 (gen-current-fixnum-min)) 5)
+			      #i[... 5])
+			(test "lower to pos/inf"
+			      (range 3 (sub1 (gen-current-fixnum-max)))
+			      #i[3 ...])
+			(test "lower ... upper"
+			      (range 1 9)
+			      #i[0 ... 10])))
 
-;; (test-group "generator syntax"
-;;             (test-assert (fixnum? (<- #g[1.0 .. 2.0]))))
-
-            ;; (test-assert "#g[1.0 .. 4.0]"
-            ;;              (flonum? (<- #g[1.0 .. 4.0])))
-            ;; (test-assert "#g[#\a .. #\z]"
-            ;;              (char? (<- #g[#\a .. #\z])))
-            ;; (test-error "unsupported generator"
-            ;;             #g[#t .. #f]))
+(test-group "generator syntax"
+            (test-assert (fixnum? (<- #g[1 .. 2])))
+            (test-assert "#g[1.0 .. 4.0]"
+                         (flonum? (<- #g[1.0 .. 4.0])))
+            (test-assert "#g[#\\a .. #\\z]"
+                         (char? (<- #g[ #\a .. #\z ])))
+            (test-error "unsupported generator"
+                        #g[#t .. #f]))
 
 (test-end "data-generators")