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

added 'more: systems' doc

Browse Source 
svn: r8341

original commit: b014545c7a7de0d7599a9383af830821f832ddb8
This commit is contained in:
Matthew Flatt 2008-01-16 00:21:19 +00:00
parent dbd9978f63
commit ac830fc73e
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mzlib/control.ss
View File

@ -1,6 +1,8 @@
(module control mzscheme (module control mzscheme
(provide fcontrol % (provide abort
fcontrol %
control prompt control-at prompt-at control prompt control-at prompt-at
;; `-at' variations expect a prompt tag ;; `-at' variations expect a prompt tag
@ -16,6 +18,13 @@
new-prompt set cupto) new-prompt set cupto)
;; ----------------------------------------
(define (abort . vals)
(abort-current-continuation
(default-continuation-prompt-tag)
(lambda () (apply values vals))))
;; ---------------------------------------- ;; ----------------------------------------
;; Sitaram, PLDI'93 ;; Sitaram, PLDI'93
;; The `%' here is compable with Sitaram & Felleisen, LSC'90, ;; The `%' here is compable with Sitaram & Felleisen, LSC'90,