From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 8 Dec 2018 23:54:30 +0000 (+0000)
Subject: Fasdump weak false.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~51
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5e932fdb8395d5ed63350bee68cca88b97f11432;p=mit-scheme.git

Fasdump weak false.

(Maybe this should just not be constant-folded?)
---

diff --git a/src/compiler/base/fasdump.scm b/src/compiler/base/fasdump.scm
index 2dff5d1b7..9354f5bb5 100644
--- a/src/compiler/base/fasdump.scm
+++ b/src/compiler/base/fasdump.scm
@@ -669,6 +669,8 @@ USA.
            (if-non-pointer tc:constant constant:unspecific))
           ((null? object)
            (if-non-pointer tc:constant constant:null))
+          ((eqv? object (weak-false))
+           (if-non-pointer tc:constant constant:weak-false))
           (else
            (fasdump-error state "Invalid object for fasdump:" object)))))
 
@@ -1019,6 +1021,7 @@ USA.
 (define constant:default 7)
 (define constant:aux 8)
 (define constant:null 9)
+(define constant:weak-false 10)
 
 (define trap:unbound 2)
 (define trap-max-immediate 9)
@@ -1091,6 +1094,8 @@ USA.
 (define (optional-object) #!optional)
 (define (rest-object) #!rest)
 (define (unspecific-object) #!unspecific)
+(define (weak-false)
+  (object-new-type (microcode-type 'constant) 10))
 
 (define (port-position port)
   ((access binary-port-position (->environment '(runtime binary-port))) port))