steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

logic.factor: [ quot call( -- ) ] --> quot

flac
kusumotonorio 2020-03-03 21:16:52 +09:00 committed by Steve Ayerhart
parent 241b902134
commit e2ecab70c1
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/logic/logic.factor
View File

@ -222,7 +222,7 @@ DEFER: unify*
] [ ] [
body unclip :> ( rest-goals! first-goal! ) body unclip :> ( rest-goals! first-goal! )
first-goal !! = [ ! cut first-goal !! = [ ! cut
rest-goals env cut [ quot call( -- ) ] resolve-body rest-goals env cut quot resolve-body
t cut set-info t cut set-info
] [ ] [
first-goal callable? [ first-goal callable? [
@ -243,11 +243,11 @@ DEFER: unify*
first-goal env d-head d-env trail d-env unify* [ first-goal env d-head d-env trail d-env unify* [
d-body callable? [ d-body callable? [
d-env trail <callback-env> d-body call( cb-env -- ? ) [ d-env trail <callback-env> d-body call( cb-env -- ? ) [
rest-goals env cut [ quot call( -- ) ] resolve-body rest-goals env cut quot resolve-body
] when ] when
] [ ] [
d-body d-env d-cut [ d-body d-env d-cut [
rest-goals env cut [ quot call( -- ) ] resolve-body rest-goals env cut quot resolve-body
cut cut? d-cut set-info-if-f cut cut? d-cut set-info-if-f
] resolve-body ] resolve-body
] if ] if