Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Refactor gsc/_t-univ.scm to support more targets (JavaScript, Python,…

… Ruby, PHP).
  • Loading branch information...
commit 08670f549f44f734513f2cac5a335738ad0c0a71 1 parent 8a8df9c
@feeley authored
Showing with 2,001 additions and 1,595 deletions.
  1. +1,865 −1,472 gsc/_t-univ.scm
  2. +13 −9 gsc/runtests.scm
  3. +2 −0  gsc/tests/00-fixnum/funcall.scm
  4. +2 −0  gsc/tests/00-fixnum/funcall2.scm
  5. +2 −0  gsc/tests/00-fixnum/if.scm
  6. +2 −0  gsc/tests/00-fixnum/println.scm
  7. +1 −1  gsc/tests/01-boolean/and.scm
  8. +1 −1  gsc/tests/01-boolean/if.scm
  9. +1 −1  gsc/tests/01-boolean/not.scm
  10. +1 −1  gsc/tests/01-boolean/or.scm
  11. +1 −1  gsc/tests/01-boolean/println.scm
  12. +1 −1  gsc/tests/02-string/and.scm
  13. +1 −1  gsc/tests/02-string/eq.scm
  14. +1 −1  gsc/tests/02-string/if.scm
  15. +1 −1  gsc/tests/02-string/not.scm
  16. +1 −1  gsc/tests/02-string/or.scm
  17. +2 −0  gsc/tests/02-string/println.scm
  18. +1 −1  gsc/tests/03-fxprim/fixnum.scm
  19. +7 −1 gsc/tests/03-fxprim/fxadd.scm
  20. +4 −1 gsc/tests/03-fxprim/fxaddp.scm
  21. +1 −1  gsc/tests/03-fxprim/fxeq.scm
  22. +1 −5 gsc/tests/03-fxprim/fxfib.scm
  23. +1 −1  gsc/tests/03-fxprim/fxge.scm
  24. +1 −1  gsc/tests/03-fxprim/fxgt.scm
  25. +1 −1  gsc/tests/03-fxprim/fxle.scm
  26. +1 −1  gsc/tests/03-fxprim/fxlt.scm
  27. +1 −1  gsc/tests/03-fxprim/fxmul.scm
  28. +1 −6 gsc/tests/03-fxprim/fxnum-cmp.scm
  29. +1 −1  gsc/tests/03-fxprim/fxsub.scm
  30. +7 −1 gsc/tests/03-fxprim/fxsubp.scm
  31. +7 −1 gsc/tests/03-fxprim/fxwrapadd.scm
  32. +12 −1 gsc/tests/03-fxprim/fxwrapmul.scm
  33. +7 −1 gsc/tests/03-fxprim/fxwrapsub.scm
  34. +1 −1  gsc/tests/04-pair/and.scm
  35. +1 −4 gsc/tests/04-pair/cons.scm
  36. +1 −4 gsc/tests/04-pair/cxxxxr.scm
  37. +1 −1  gsc/tests/04-pair/eq.scm
  38. +1 −1  gsc/tests/04-pair/if.scm
  39. +1 −4 gsc/tests/04-pair/list.scm
  40. +1 −1  gsc/tests/04-pair/not.scm
  41. +1 −1  gsc/tests/04-pair/or.scm
  42. +2 −0  gsc/tests/04-pair/println.scm
  43. +2 −7 gsc/tests/05-closure/makeadder.scm
  44. +3 −8 gsc/tests/05-closure/oddeven.scm
  45. +1 −1  gsc/tests/06-strprim/makestr.scm
  46. +1 −1  gsc/tests/06-strprim/string.scm
  47. +1 −1  gsc/tests/06-strprim/strref.scm
  48. +1 −1  gsc/tests/06-strprim/strset.scm
  49. +1 −1  gsc/tests/07-flonum/and.scm
  50. +1 −1  gsc/tests/07-flonum/eq.scm
  51. +1 −1  gsc/tests/07-flonum/if.scm
  52. +1 −1  gsc/tests/07-flonum/not.scm
  53. +1 −1  gsc/tests/07-flonum/or.scm
  54. +2 −0  gsc/tests/07-flonum/println.scm
  55. +1 −1  gsc/tests/08-flprim/flonum.scm
  56. +1 −1  gsc/tests/09-char/and.scm
  57. +1 −1  gsc/tests/09-char/charp.scm
  58. +1 −1  gsc/tests/09-char/eq.scm
  59. +1 −1  gsc/tests/09-char/if.scm
  60. +1 −1  gsc/tests/09-char/not.scm
  61. +1 −1  gsc/tests/09-char/or.scm
  62. +2 −0  gsc/tests/09-char/println.scm
  63. +1 −1  gsc/tests/10-vector/and.scm
  64. +1 −1  gsc/tests/10-vector/eq.scm
  65. +1 −1  gsc/tests/10-vector/if.scm
  66. +1 −1  gsc/tests/10-vector/not.scm
  67. +1 −1  gsc/tests/10-vector/or.scm
  68. +2 −0  gsc/tests/10-vector/println.scm
  69. +1 −4 gsc/tests/10-vector/vector.scm
  70. +1 −5 gsc/tests/11-cont/contfib1.scm
  71. +1 −5 gsc/tests/11-cont/contfib2.scm
  72. +1 −5 gsc/tests/11-cont/contfib3.scm
  73. +1 −5 gsc/tests/11-cont/ctak.scm
  74. +2 −2 include/stamp.h
View
3,337 gsc/_t-univ.scm
1,865 additions, 1,472 deletions not shown
View
22 gsc/runtests.scm
@@ -4,7 +4,7 @@
;;; File: "runtests.scm"
-;;; Copyright (c) 2012 by Marc Feeley, All Rights Reserved.
+;;; Copyright (c) 2012-2013 by Marc Feeley, All Rights Reserved.
;;;----------------------------------------------------------------------------
@@ -63,7 +63,7 @@
(compile file target))
(let ((result (apply run (append (cddr t) (list out)))))
(if (not (equal? target "gambit"))
- (delete-file out))
+ '(delete-file out))
result))
(apply run (append (cddr t) (list file)))))))
(keep (lambda (t)
@@ -80,13 +80,17 @@
(define targets
'(
- ("gambit" ".scm" "./gsc" "-i")
- ("c" ".o1" "./gsc" "-i")
- ("x86" #f "./gsc32" "-:=.." "-target" "nat" "-c" "-e" "(load \"_t-x86.scm\")")
- ("x86-64" #f "./gsc64" "-:=.." "-target" "nat" "-c" "-e" "(load \"_t-x86.scm\")")
- ("js" ".js" "d8")
- ("python" ".py" "python")
- ("ruby" ".rb" "ruby")
+ ("gambit" ".scm" "./gsc" "-i")
+ ("c" ".o1" "./gsc" "-i")
+ ("x86" #f "./gsc32" "-:=.." "-target" "nat" "-c" "-e" "(load \"_t-x86.scm\")")
+ ("x86-64" #f "./gsc64" "-:=.." "-target" "nat" "-c" "-e" "(load \"_t-x86.scm\")")
+ ("js" ".js" "d8")
+ ("python" ".py" "python")
+;; ("ruby" ".rb" "/usr/bin/ruby")
+ ("ruby" ".rb" "/usr/local/bin/ruby") ;; ruby 1.9.3p392
+ ("php" ".php" "/usr/bin/php")
+;; ("php" ".php" "/usr/local/bin/php") ;; PHP 5.4.11
+;; ("dart" ".dart" "/Users/feeley/dart/dart-sdk/bin/dart")
))
(define (runtest-file file)
View
2  gsc/tests/00-fixnum/funcall.scm
@@ -1,3 +1,5 @@
+(declare (extended-bindings) (not constant-fold) (not safe))
+
(define (test n)
(println n))
View
2  gsc/tests/00-fixnum/funcall2.scm
@@ -1,3 +1,5 @@
+(declare (extended-bindings) (not constant-fold) (not safe))
+
(define (test a b c d e f g h i j)
(test2 a c e g i))
View
2  gsc/tests/00-fixnum/if.scm
@@ -1,3 +1,5 @@
+(declare (extended-bindings) (not constant-fold) (not safe))
+
(define (test x)
(println (if x 11 22)))
View
2  gsc/tests/00-fixnum/println.scm
@@ -1,3 +1,5 @@
+(declare (extended-bindings) (not constant-fold) (not safe))
+
(println 0)
(println 1)
(println -1)
View
2  gsc/tests/01-boolean/and.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define f (##not 123))
(define t (##not f))
View
2  gsc/tests/01-boolean/if.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define f (##not 123))
(define t (##not f))
View
2  gsc/tests/01-boolean/not.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define f (##not 123))
(define t (##not f))
View
2  gsc/tests/01-boolean/or.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define f (##not 123))
(define t (##not f))
View
2  gsc/tests/01-boolean/println.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define f (##not 123))
(define t (##not f))
View
2  gsc/tests/02-string/and.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define s1 "")
(define s2 "hello")
View
2  gsc/tests/02-string/eq.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define s1 "")
(define s2 "hello")
View
2  gsc/tests/02-string/if.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define s1 "")
(define s2 "hello")
View
2  gsc/tests/02-string/not.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define s1 "")
(define s2 "hello")
View
2  gsc/tests/02-string/or.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define s1 "")
(define s2 "hello")
View
2  gsc/tests/02-string/println.scm
@@ -1,2 +1,4 @@
+(declare (extended-bindings) (not constant-fold) (not safe))
+
(println "")
(println "hello")
View
2  gsc/tests/03-fxprim/fixnum.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define f (##not 123))
(define t (##not f))
View
8 gsc/tests/03-fxprim/fxadd.scm
@@ -1,6 +1,12 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(println (##fx+ 11 33))
(println (##fx+ 11 -11))
(println (##fx+ 11 -33))
(println (##fx+ -11 33))
+
+(println (##fx+))
+(println (##fx+ 11))
+(println (##fx+ 11 22))
+(println (##fx+ 11 22 33))
+(println (##fx+ 11 22 33 44))
View
5 gsc/tests/03-fxprim/fxaddp.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(println (##fx+? 11 33))
(println (##fx+? 11 -11))
@@ -7,3 +7,6 @@
(println (##fx+? 536870910 0))
(println (##fx+? 536870910 1))
(println (##fx+? 536870910 2))
+(println (##fx+? -536870910 -1))
+(println (##fx+? -536870910 -2))
+(println (##fx+? -536870910 -3))
View
2  gsc/tests/03-fxprim/fxeq.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define a 11)
(define b 11)
View
6 gsc/tests/03-fxprim/fxfib.scm
@@ -1,8 +1,4 @@
-(declare
- (standard-bindings)
- (extended-bindings)
- (not safe)
-)
+(declare (extended-bindings) (not constant-fold) (not safe))
(define (fib n)
View
2  gsc/tests/03-fxprim/fxge.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define a 11)
(define b 11)
View
2  gsc/tests/03-fxprim/fxgt.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define a 11)
(define b 11)
View
2  gsc/tests/03-fxprim/fxle.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define a 11)
(define b 11)
View
2  gsc/tests/03-fxprim/fxlt.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define a 11)
(define b 11)
View
2  gsc/tests/03-fxprim/fxmul.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(println (##fx* 11 33))
(println (##fx* 11 -11))
View
7 gsc/tests/03-fxprim/fxnum-cmp.scm
@@ -1,9 +1,4 @@
-(declare
- (standard-bindings)
- (extended-bindings)
- (fixnum)
- (not safe)
- (not interrupts-enabled))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define zero 0)
View
2  gsc/tests/03-fxprim/fxsub.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(println (##fx- 11 33))
(println (##fx- 11 -11))
View
8 gsc/tests/03-fxprim/fxsubp.scm
@@ -1,6 +1,12 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(println (##fx-? 11 33))
(println (##fx-? 11 -11))
(println (##fx-? 11 -33))
(println (##fx-? -11 33))
+(println (##fx-? 536870910 0))
+(println (##fx-? 536870910 -1))
+(println (##fx-? 536870910 -2))
+(println (##fx-? -536870910 1))
+(println (##fx-? -536870910 2))
+(println (##fx-? -536870910 3))
View
8 gsc/tests/03-fxprim/fxwrapadd.scm
@@ -1,6 +1,12 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(println (##fxwrap+ 11 33))
(println (##fxwrap+ 11 -11))
(println (##fxwrap+ 11 -33))
(println (##fxwrap+ -11 33))
+(println (##fxwrap+ 536870910 0))
+(println (##fxwrap+ 536870910 1))
+(println (##fxwrap+ 536870910 2))
+(println (##fxwrap+ -536870910 -1))
+(println (##fxwrap+ -536870910 -2))
+(println (##fxwrap+ -536870910 -3))
View
13 gsc/tests/03-fxprim/fxwrapmul.scm
@@ -1,6 +1,17 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(println (##fxwrap* 11 33))
(println (##fxwrap* 11 -11))
(println (##fxwrap* 11 -33))
(println (##fxwrap* -11 33))
+(println (##fxwrap* 536870910 0))
+(println (##fxwrap* 536870910 1))
+(println (##fxwrap* 536870910 2))
+(println (##fxwrap* -536870910 -1))
+(println (##fxwrap* -536870910 -2))
+(println (##fxwrap* -536870910 -3))
+(println (##fxwrap* 10001 10001))
+(println (##fxwrap* 100001 100001))
+(println (##fxwrap* 1000001 1000001))
+(println (##fxwrap* 10000001 10000001))
+(println (##fxwrap* 100000001 100000001))
View
8 gsc/tests/03-fxprim/fxwrapsub.scm
@@ -1,6 +1,12 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(println (##fxwrap- 11 33))
(println (##fxwrap- 11 -11))
(println (##fxwrap- 11 -33))
(println (##fxwrap- -11 33))
+(println (##fxwrap- 536870910 0))
+(println (##fxwrap- 536870910 -1))
+(println (##fxwrap- 536870910 -2))
+(println (##fxwrap- -536870910 1))
+(println (##fxwrap- -536870910 2))
+(println (##fxwrap- -536870910 3))
View
2  gsc/tests/04-pair/and.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define x1 '())
(define x2 '(1))
View
5 gsc/tests/04-pair/cons.scm
@@ -1,7 +1,4 @@
-(declare
- (standard-bindings)
- (extended-bindings)
- (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define x (##cons 11 22))
View
5 gsc/tests/04-pair/cxxxxr.scm
@@ -1,7 +1,4 @@
-(declare
- (standard-bindings)
- (extended-bindings)
- (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define x01 '(1 2 3 4))
(define x02 '((1 2) 3 4))
View
2  gsc/tests/04-pair/eq.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define l1 '())
(define l2 '(1 2 3))
View
2  gsc/tests/04-pair/if.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define l1 '())
(define l2 '(1 2 3))
View
5 gsc/tests/04-pair/list.scm
@@ -1,7 +1,4 @@
-(declare
- (standard-bindings)
- (extended-bindings)
- (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define x (##list 11 22 33))
View
2  gsc/tests/04-pair/not.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define v1 '())
(define v2 '(1 2 3))
View
2  gsc/tests/04-pair/or.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define v1 '())
(define v2 '(1 2 3))
View
2  gsc/tests/04-pair/println.scm
@@ -1,2 +1,4 @@
+(declare (extended-bindings) (not constant-fold) (not safe))
+
(println '())
(println '(1 2 3))
View
9 gsc/tests/05-closure/makeadder.scm
@@ -1,12 +1,7 @@
-(declare
- (standard-bindings)
- (extended-bindings)
- (not safe)
- (not interrupts-enabled)
-)
+(declare (extended-bindings) (not constant-fold) (not safe))
(define (make-adder x)
- (lambda (y) (fx+ x y)))
+ (lambda (y) (##fx+ x y)))
(define inc (make-adder 1))
View
11 gsc/tests/05-closure/oddeven.scm
@@ -1,13 +1,8 @@
-(declare
- (standard-bindings)
- (extended-bindings)
- (not safe)
- (not interrupts-enabled)
-)
+(declare (extended-bindings) (not constant-fold) (not safe))
(define (oddeven n)
- (define (o x) (if (fx= x 0) #f (e (fx- x n))))
- (define (e x) (if (fx= x 0) #t (o (fx- x n))))
+ (define (o x) (if (##fx= x 0) #f (e (##fx- x n))))
+ (define (e x) (if (##fx= x 0) #t (o (##fx- x n))))
o)
(define odd (oddeven 1))
View
2  gsc/tests/06-strprim/makestr.scm
@@ -1,3 +1,3 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(println (##make-string 5 #\!))
View
2  gsc/tests/06-strprim/string.scm
@@ -1,3 +1,3 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(println (##make-string 5 #\!))
View
2  gsc/tests/06-strprim/strref.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define s "abcdef")
View
2  gsc/tests/06-strprim/strset.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define s (##make-string 5 #\!))
View
2  gsc/tests/07-flonum/and.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define a 0.0)
(define b -2.7)
View
2  gsc/tests/07-flonum/eq.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define a 0.0)
(define b -2.7)
View
2  gsc/tests/07-flonum/if.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define a 0.0)
(define b -2.7)
View
2  gsc/tests/07-flonum/not.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define a 0.0)
(define b -2.7)
View
2  gsc/tests/07-flonum/or.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define a 0.0)
(define b -2.7)
View
2  gsc/tests/07-flonum/println.scm
@@ -1,2 +1,4 @@
+(declare (extended-bindings) (not constant-fold) (not safe))
+
(println 0.0)
(println -2.7)
View
2  gsc/tests/08-flprim/flonum.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define f (##not 123))
(define t (##not f))
View
2  gsc/tests/09-char/and.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define c1 #\A)
(define c2 #\B)
View
2  gsc/tests/09-char/charp.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings) (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define c1 #\A)
(define notchar 42)
View
2  gsc/tests/09-char/eq.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define c1 #\A)
(define c2 #\B)
View
2  gsc/tests/09-char/if.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define c1 #\A)
(define c2 #\B)
View
2  gsc/tests/09-char/not.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define c1 #\A)
(define c2 #\B)
View
2  gsc/tests/09-char/or.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define c1 #\A)
(define c2 #\B)
View
2  gsc/tests/09-char/println.scm
@@ -1,2 +1,4 @@
+(declare (extended-bindings) (not constant-fold) (not safe))
+
(println #\A)
(println #\B)
View
2  gsc/tests/10-vector/and.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define x1 '#())
(define x2 '#(1 2 3))
View
2  gsc/tests/10-vector/eq.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define v1 '#())
(define v2 '#(1 2 3))
View
2  gsc/tests/10-vector/if.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define v1 '())
(define v2 '(1 2 3))
View
2  gsc/tests/10-vector/not.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define v1 '#())
(define v2 '#(1 2 3))
View
2  gsc/tests/10-vector/or.scm
@@ -1,4 +1,4 @@
-(declare (extended-bindings))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define v1 '#())
(define v2 '#(1 2 3))
View
2  gsc/tests/10-vector/println.scm
@@ -1,2 +1,4 @@
+(declare (extended-bindings) (not constant-fold) (not safe))
+
(println '#())
(println '#(1 2 3))
View
5 gsc/tests/10-vector/vector.scm
@@ -1,7 +1,4 @@
-(declare
- (standard-bindings)
- (extended-bindings)
- (not safe))
+(declare (extended-bindings) (not constant-fold) (not safe))
(define x (##vector 11 22))
View
6 gsc/tests/11-cont/contfib1.scm
@@ -1,8 +1,4 @@
-(declare
- (standard-bindings)
- (extended-bindings)
- (not safe)
-)
+(declare (extended-bindings) (not constant-fold) (not safe))
(define (fib n)
View
6 gsc/tests/11-cont/contfib2.scm
@@ -1,8 +1,4 @@
-(declare
- (standard-bindings)
- (extended-bindings)
- (not safe)
-)
+(declare (extended-bindings) (not constant-fold) (not safe))
(define (fib n)
View
6 gsc/tests/11-cont/contfib3.scm
@@ -1,8 +1,4 @@
-(declare
- (standard-bindings)
- (extended-bindings)
- (not safe)
-)
+(declare (extended-bindings) (not constant-fold) (not safe))
(define (my-call/cc receiver)
(##continuation-capture
View
6 gsc/tests/11-cont/ctak.scm
@@ -1,8 +1,4 @@
-(declare
- (standard-bindings)
- (extended-bindings)
- (not safe)
-)
+(declare (extended-bindings) (not constant-fold) (not safe))
(define (ctak x y z)
(##continuation-capture
View
4 include/stamp.h
@@ -2,5 +2,5 @@
* Time stamp of last source code repository commit.
*/
-#define ___STAMP_YMD 20130222
-#define ___STAMP_HMS 221557
+#define ___STAMP_YMD 20130312
+#define ___STAMP_HMS 183141
Please sign in to comment.
Something went wrong with that request. Please try again.