kernel: ?if-old is just `[ or* ] 2dip if`

[factor.git] / extra / gml / runtime / runtime.factor

diff --git a/extra/gml/runtime/runtime.factor b/extra/gml/runtime/runtime.factor
index 6803d110603bc048d4d7afb75a1ca2a5a0ad8837..374a96ee9171a9360481abe0f8bb48cdb0eee103 100644 (file)
--- a/extra/gml/runtime/runtime.factor
+++ b/extra/gml/runtime/runtime.factor
@@ -59,7 +59,7 @@ ERROR: unbound-name { name gml-name } ;
 
 : lookup-name ( name gml -- value )
     dupd dictionary-stack>> assoc-stack
-    [ ] [ unbound-name ] ?if-old ; inline
+    or* [ unbound-name ] unless ; inline
 
 GENERIC: exec-proc ( registers gml proc -- registers gml )