suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed test for binding of delay that moved again

Browse Source 
svn: r17223
This commit is contained in:
Eli Barzilay 2009-12-06 05:15:20 +00:00
parent 259350a7e1
commit 6a88daecd8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/mzscheme/stx.ss
View File

@ -469,6 +469,7 @@
(let ([b (identifier-binding s)]) (let ([b (identifier-binding s)])
(if (list? b) (if (list? b)
(list* (let-values ([(name base) (module-path-index-split (car b))]) (list* (let-values ([(name base) (module-path-index-split (car b))])
(fprintf (current-error-port) ">>>>base = ~s\n" base)
name) name)
(cadr b) (cadr b)
(let-values ([(name base) (module-path-index-split (caddr b))]) (let-values ([(name base) (module-path-index-split (caddr b))])
@ -478,7 +479,7 @@
(test '('#%kernel case-lambda (lib "scheme/init") case-lambda 0 0 0) (test '('#%kernel case-lambda (lib "scheme/init") case-lambda 0 0 0)
identifier-binding* #'case-lambda) identifier-binding* #'case-lambda)
(test '(scheme/promise delay* (lib "scheme/init") delay 0 0 0) (test '("private/promise.ss" delay* (lib "scheme/init") delay 0 0 0)
identifier-binding* #'delay) identifier-binding* #'delay)
(test '('#%kernel #%module-begin (lib "scheme/init") #%plain-module-begin 0 0 0) (test '('#%kernel #%module-begin (lib "scheme/init") #%plain-module-begin 0 0 0)
identifier-binding* #'#%plain-module-begin) identifier-binding* #'#%plain-module-begin)