From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 11 Oct 1989 15:26:52 +0000 (+0000)
Subject: Add a global call/cc .
X-Git-Tag: 20090517-FFI~11756
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=416d9196a0db5c1445fffa670df56fac79dc9ff7;p=mit-scheme.git

Add a global call/cc .
---

diff --git a/v7/src/runtime/site.scm.unix b/v7/src/runtime/site.scm.unix
index b6041dd9c..a2872c14f 100644
--- a/v7/src/runtime/site.scm.unix
+++ b/v7/src/runtime/site.scm.unix
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.unix,v 1.1 1988/12/31 05:55:09 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.unix,v 1.2 1989/10/11 15:26:52 jinx Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -35,6 +35,21 @@ MIT in each case. |#
 ;;;; Switzerland site specific stuff
 
 (declare (usual-integrations))
+
+;;; Local hacks
+
+(define (call/cc . args)
+  ((ucode-primitive system)
+   (with-output-to-string
+     (lambda ()
+       (display "cc")
+       (let loop ((args args))
+	 (if (not (null? args))
+	     (begin
+	       (display " ")
+	       (display (car args))
+	       (loop (cdr args)))))))))
+
 ;;; Normalization of various directory structures.
 
 (let ((add-directory-rewriting-rule!