From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 14 Nov 2011 18:25:28 +0000 (-0800)
Subject: variables: fix for recent initial-value change.
X-Git-Tag: 0.97~3448
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=5d266ff4b762086ab3d8ea9fa72bcb00fdc77b9d

variables: fix for recent initial-value change.
---

diff --git a/extra/variables/variables.factor b/extra/variables/variables.factor
index a6dc84fbeb..77717a0f06 100644
--- a/extra/variables/variables.factor
+++ b/extra/variables/variables.factor
@@ -55,7 +55,7 @@ PREDICATE: typed-variable < variable
         [ [ [variable-getter] ] dip [typed-getter] ]
         [ [ [variable-setter] ] dip [typed-setter] ]
         [ "variable-type" set-word-prop ]
-        [ initial-value swap set-global ]
+        [ initial-value drop swap set-global ]
     } 2cleave (define-variable) ;
 
 SYNTAX: TYPED-VAR:
@@ -87,7 +87,7 @@ INTERSECTION: typed-global-variable
 
 : define-typed-global ( word type -- )
     2dup "variable-type" set-word-prop
-    dup initial-value global-box boa swap
+    dup initial-value drop global-box boa swap
     [ [ [global-getter] ] dip [typed-getter] ]
     [ [ [global-setter] ] dip [typed-setter] ] 2bi (define-variable) ;