From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 29 Mar 2018 04:42:19 +0000 (-0700)
Subject: Make second arg to scons-set! optional.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~161
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9bef3d330cafda13655e7a02093f1038acc21f2b;p=mit-scheme.git

Make second arg to scons-set! optional.
---

diff --git a/src/runtime/syntax-constructor.scm b/src/runtime/syntax-constructor.scm
index c118e1571..e706fd2d7 100644
--- a/src/runtime/syntax-constructor.scm
+++ b/src/runtime/syntax-constructor.scm
@@ -138,12 +138,14 @@ USA.
    (lambda (close)
      (list (close 'quote-identifier) id))))
 
-(define (scons-set! name value)
+(define (scons-set! name #!optional value)
   (make-open-expr
    (lambda (close)
-     (list (close 'set!)
-	   name
-	   (close-part close value)))))
+     (if (default-object? value)
+	 (list (close 'set!) name)
+	 (list (close 'set!)
+	       name
+	       (close-part close value))))))
 
 (define (let-like keyword)
   (lambda (bindings . body-forms)