Changeset 38750 in project
- Timestamp:
- 06/16/20 15:01:12 (7 months ago)
- Location:
- release/5/r7rs
- Files:
-
- 4 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
release/5/r7rs/tags/1.0.2/r7rs-compile-time.scm
r35586 r38750 12 12 (sname2 (symbol->string name2))) 13 13 (or (##sys#find-module name2 #f) 14 (memq name2 ##sys#core-library-modules)15 (memq name2 ##sys#core-syntax-modules)16 14 (file-exists? (string-append sname2 ".import.so")) 17 15 (file-exists? (string-append sname2 ".import.scm"))))) -
release/5/r7rs/tags/1.0.2/tests/run.scm
r35586 r38750 53 53 (lambda () (include-ci "include-ci.scm")))))) 54 54 55 #+full-numeric-tower 55 (test-group "4.2.1: Conditionals" 56 (test-group "cond-expand" 57 (test "(scheme base)" 58 'scheme-base 59 (cond-expand 60 ((library (scheme base)) 'scheme-base) 61 (else #f))) 62 (test "(chicken base)" 63 'chicken-base 64 (cond-expand 65 ((library (chicken base)) 'chicken-base) 66 (else #f))) 67 (test "chicken.base" 68 'chicken.base 69 (cond-expand 70 ((library chicken.base) 'chicken.base) 71 (else #f))) 72 (test "(r7rs)" 73 'r7rs 74 (cond-expand 75 ((library (r7rs)) 'r7rs) 76 (else #f))) 77 (test "r7rs" 78 'r7rs 79 (cond-expand 80 ((library r7rs) 'r7rs) 81 (else #f))) 82 (test "(srfi 1)" 83 'srfi-1 84 (let () 85 (import (srfi 1)) 86 (cond-expand 87 ((library (srfi 1)) 'srfi-1) 88 (else #f)))) 89 (test "srfi-1" 90 'srfi-1 91 (let () 92 (import srfi-1) 93 (cond-expand 94 ((library srfi-1) 'srfi-1) 95 (else #f)))) 96 (test "(bogus identifier)" 97 #f 98 (cond-expand 99 ((library (bogus identifier)) 'bogus-identifier) 100 (else #f))))) 101 56 102 (test-group "6.2.6: numerical operations" 57 103 (test-group "floor/...truncate-remainder" -
release/5/r7rs/trunk/r7rs-compile-time.scm
r35586 r38750 12 12 (sname2 (symbol->string name2))) 13 13 (or (##sys#find-module name2 #f) 14 (memq name2 ##sys#core-library-modules)15 (memq name2 ##sys#core-syntax-modules)16 14 (file-exists? (string-append sname2 ".import.so")) 17 15 (file-exists? (string-append sname2 ".import.scm"))))) -
release/5/r7rs/trunk/tests/run.scm
r35586 r38750 53 53 (lambda () (include-ci "include-ci.scm")))))) 54 54 55 #+full-numeric-tower 55 (test-group "4.2.1: Conditionals" 56 (test-group "cond-expand" 57 (test "(scheme base)" 58 'scheme-base 59 (cond-expand 60 ((library (scheme base)) 'scheme-base) 61 (else #f))) 62 (test "(chicken base)" 63 'chicken-base 64 (cond-expand 65 ((library (chicken base)) 'chicken-base) 66 (else #f))) 67 (test "chicken.base" 68 'chicken.base 69 (cond-expand 70 ((library chicken.base) 'chicken.base) 71 (else #f))) 72 (test "(r7rs)" 73 'r7rs 74 (cond-expand 75 ((library (r7rs)) 'r7rs) 76 (else #f))) 77 (test "r7rs" 78 'r7rs 79 (cond-expand 80 ((library r7rs) 'r7rs) 81 (else #f))) 82 (test "(srfi 1)" 83 'srfi-1 84 (let () 85 (import (srfi 1)) 86 (cond-expand 87 ((library (srfi 1)) 'srfi-1) 88 (else #f)))) 89 (test "srfi-1" 90 'srfi-1 91 (let () 92 (import srfi-1) 93 (cond-expand 94 ((library srfi-1) 'srfi-1) 95 (else #f)))) 96 (test "(bogus identifier)" 97 #f 98 (cond-expand 99 ((library (bogus identifier)) 'bogus-identifier) 100 (else #f))))) 101 56 102 (test-group "6.2.6: numerical operations" 57 103 (test-group "floor/...truncate-remainder"
Note: See TracChangeset
for help on using the changeset viewer.