From 5e932fdb8395d5ed63350bee68cca88b97f11432 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 8 Dec 2018 23:54:30 +0000 Subject: [PATCH] Fasdump weak false. (Maybe this should just not be constant-folded?) --- src/compiler/base/fasdump.scm | 5 +++++ 1 file changed, 5 insertions(+) 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)) -- 2.25.1