X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=scheme.4th;h=244a33f67e612dfbb74165c7460fdf8fd1d8e356;hp=c30036542a2482d82e1474877c97670f03b0461a;hb=82b93d081309895fe1a8e446daad5b8a75896fa3;hpb=7888f570d4b32b447622e25c38a4e78197cc7732

diff --git a/scheme.4th b/scheme.4th
index c300365..244a33f 100644
--- a/scheme.4th
+++ b/scheme.4th
@@ -1247,10 +1247,10 @@ hide env
 : if-consequent ( ifobj -- conseq )
     cdr cdr car ;
 
-: if-alternative ( ifobj -- alt|false )
+: if-alternative ( ifobj -- alt|none )
     cdr cdr cdr
     nil? if
-        2drop false
+        2drop none
     else
         car
     then ;