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

.

Browse Source 
original commit: 04c65b16f821c4adac1782e73c296d0ba167e160
This commit is contained in:
Matthew Flatt 1998-01-06 15:53:26 +00:00
parent 8281c04770
commit 1aa7740967
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/mzscheme/unit.ss
View File

@ -418,4 +418,9 @@
(export)
(define define-values 10)))
(test #t unit? (unit
(import define-values)
(export)
(let () (define define-values 10) define-values)))
(report-errs)

6
collects/tests/mzscheme/unitsig.ss
View File

@ -464,8 +464,12 @@
; Not ok if defining an imported name, but error should be about
; redefining an imported name. (This behavior is not actually tested.)
(syntax-test '(unit/sig ()
(import (define-values) )
(import (define-values))
(define define-values 17)))
(test #t unit/sig? (unit/sig ()
(import (define-values))
(let () (define define-values 10) define-values)))
(report-errs)