Add syntax #!default and #!key.

diff --git a/v7/src/runtime/parse.scm b/v7/src/runtime/parse.scm
index b23af2de938e2ee33560c95dc7b9c6bd3192c1e7..7276898e3b1761d0dc235526d2e722e3185e0e10 100644 (file)
--- a/v7/src/runtime/parse.scm
+++ b/v7/src/runtime/parse.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: parse.scm,v 14.52 2004/11/04 03:01:18 cph Exp $
+$Id: parse.scm,v 14.53 2004/11/19 06:51:20 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,1993,1994,1997,1998,1999 Massachusetts Institute of Technology
@@ -485,13 +485,16 @@ USA.
          ((string-ci=? name "true") #t)
          ((string-ci=? name "optional") lambda-optional-tag)
          ((string-ci=? name "rest") lambda-rest-tag)
+         ((string-ci=? name "key") lambda-key-tag)
          ((string-ci=? name "aux") lambda-auxiliary-tag)
          ((string-ci=? name "eof") (make-eof-object #f))
+         ((string-ci=? name "default") (default-object))
          (else (error:illegal-named-constant name)))))
 
 (define lambda-optional-tag (object-new-type (ucode-type constant) 3))
 (define lambda-rest-tag (object-new-type (ucode-type constant) 4))
 (define lambda-auxiliary-tag '|#!aux|)
+(define lambda-key-tag (object-new-type (ucode-type constant) 5))
 \f
 (define (handler:unhash port db ctx char1 char2)
   db ctx char1 char2

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index d34fd3fd7cb9cf35a1a3b863ac3b55b805631d18..87342f9be5976cc199cdb131bb7e10473bb0d4df 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.512 2004/11/18 18:16:08 cph Exp $
+$Id: runtime.pkg,v 14.513 2004/11/19 06:51:30 cph Exp $
 
 Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1996,1997,1998,1999 Massachusetts Institute of Technology
@@ -2452,6 +2452,7 @@ USA.
          char-set/number-leaders
          char-set/symbol-quotes
          lambda-auxiliary-tag
+         lambda-key-tag
          lambda-optional-tag
          lambda-rest-tag)
   (export (runtime unsyntaxer)

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index a47cbaa1f33db63c2cd6f6c7bce080de938e30c8..5b4505495840e73398ffaf931a2c7685702768d1 100644 (file)
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unpars.scm,v 14.57 2004/08/14 04:57:12 cph Exp $
+$Id: unpars.scm,v 14.58 2004/11/19 06:51:39 cph Exp $
 
 Copyright 1986,1987,1990,1991,1992,1995 Massachusetts Institute of Technology
 Copyright 1996,2001,2002,2003,2004 Massachusetts Institute of Technology
@@ -318,7 +318,9 @@ USA.
        ((eq? object #t) (*unparse-string "#t"))
        ((undefined-value? object)
         (*unparse-string "#[unspecified-return-value]"))
+       ((default-object? object) (*unparse-string "#!default"))
        ((eq? object lambda-auxiliary-tag) (*unparse-string "#!aux"))
+       ((eq? object lambda-key-tag) (*unparse-string "#!key"))
        ((eq? object lambda-optional-tag) (*unparse-string "#!optional"))
        ((eq? object lambda-rest-tag) (*unparse-string "#!rest"))
        (else (unparse/default object))))