]> gitweb.factorcode.org Git - factor.git/commitdiff
stack-checker.dependencies: simplify depends-on.
authorJohn Benediktsson <mrjbq7@gmail.com>
Tue, 3 Nov 2020 21:08:32 +0000 (13:08 -0800)
committerJohn Benediktsson <mrjbq7@gmail.com>
Tue, 3 Nov 2020 21:08:32 +0000 (13:08 -0800)
basis/stack-checker/dependencies/dependencies.factor

index d66c21e29a601efc9d4700d57e6fd2fe173cf12f..33c65d1cd9acbd7b54cc6cc75dcf8e776dcc150d 100644 (file)
@@ -22,9 +22,9 @@ SYMBOLS: +effect+ +conditional+ +definition+ ;
 
 : depends-on ( word how -- )
     over primitive? [ 2drop ] [
-        dependencies get dup [
+        dependencies get [
             swap '[ _ strongest-dependency ] change-at
-        ] [ 3drop ] if
+        ] [ 2drop ] if*
     ] if ;
 
 GENERIC: add-depends-on-class ( classoid -- )