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

export current call/cc

Browse Source 
svn: r9118
This commit is contained in:
Matthew Flatt 2008-03-30 14:14:15 +00:00
parent f78f86fb9a
commit d7d3af08c1
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/eopl/eopl.ss
View File

@ -28,7 +28,8 @@
(provide (rename error eopl:error)
(rename printf eopl:printf)
(rename pretty-print eopl:pretty-print))
(rename pretty-print eopl:pretty-print)
(rename eopl:call-with-current-continuation call-with-current-continuation))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -137,6 +138,9 @@
(define-syntax r5rs-out
(syntax-rules ()
[(_) (begin
(require (all-except r5rs define))
(provide (all-from-except r5rs r5rs:define)))]))
(require (all-except r5rs
define
call-with-current-continuation))
(provide (all-from-except r5rs
r5rs:define)))]))
(r5rs-out))