From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 2 Mar 1991 04:13:56 +0000 (+0000)
Subject: Make call/cc more obvious.
X-Git-Tag: 20090517-FFI~10885
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2c1f98a6ea1b53fd66ca9935806729f3d115d581;p=mit-scheme.git

Make call/cc more obvious.
---

diff --git a/v7/src/runtime/site.scm.unix b/v7/src/runtime/site.scm.unix
index 3dec04ec2..6457a1313 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.4 1990/08/09 15:03:22 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.unix,v 1.5 1991/03/02 04:13:56 jinx Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -39,16 +39,19 @@ MIT in each case. |#
 ;;; 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)))))))))
+  (let ((command-line
+	 (with-output-to-string
+	   (lambda ()
+	     (display "cc")
+	     (let loop ((args args))
+	       (if (not (null? args))
+		   (begin
+		     (display " ")
+		     (display (car args))
+		     (loop (cdr args)))))))))
+    (warn "call/cc: Invoking the C compiler:" command-line)
+    ((ucode-primitive system)
+     command-line)))
 
 ;;; Normalization of various directory structures.