From e8ff31aa924a072c8a5ef1ee3065b6f2b6e781fc Mon Sep 17 00:00:00 2001
From: Joe Marshall <eval.apply@gmail.com>
Date: Fri, 1 Jul 2011 09:34:58 -0700
Subject: [PATCH] Change default initializers from (lambda () #f) to #f.
---
src/runtime/defstr.scm | 7 +++++--
src/runtime/record.scm | 4 ++--
2 files changed, 7 insertions(+), 4 deletions(-)
diff --git a/src/runtime/defstr.scm b/src/runtime/defstr.scm
index 49115a295..652e811e4 100644
--- a/src/runtime/defstr.scm
+++ b/src/runtime/defstr.scm
@@ -25,7 +25,7 @@ USA.
|#
;;;; Structure Definition Macro
-;;; package: (runtime defstruct)
+;;; package: (runtime syntax defstruct)
(declare (usual-integrations))
@@ -822,7 +822,10 @@ differences:
(field-names (map slot/name slots))
(inits
(map (lambda (slot)
- `(LAMBDA () ,(close (slot/default slot) context)))
+ (let ((default (slot/default slot)))
+ (if (false-marker? default)
+ #f
+ `(LAMBDA () ,(close default context)))))
slots)))
`((DEFINE ,type-name
,(if (structure/record-type? structure)
diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index 0a1e58265..1a1a6cdb6 100644
--- a/src/runtime/record.scm
+++ b/src/runtime/record.scm
@@ -75,7 +75,7 @@ USA.
#f
"record-type"
'#(DISPATCH-TAG NAME FIELD-NAMES DEFAULT-INITS EXTENSION)
- (vector-cons 5 (lambda () #f))
+ (vector-cons 5 #f)
#f)))
(set! record-type-type-tag (make-dispatch-tag type))
(%record-set! type 0 record-type-type-tag)
@@ -155,7 +155,7 @@ USA.
#f
(->type-name type-name)
names
- (vector-cons n (lambda () #f))
+ (vector-cons n #f)
#f))
(tag (make-dispatch-tag record-type)))
(%record-set! record-type 1 tag)
--
2.25.1