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

namespaces.extras: Fix new functors.

modern-harvey2
Doug Coleman 2017-11-23 02:44:22 -06:00
parent 9eecd977c9
commit 05387aa750
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/namespaces/extras/extras.factor
View File

@ -50,7 +50,7 @@ ERROR: not-all-unique seq ;
! make FROM: vocab => word ; for each input argument ! make FROM: vocab => word ; for each input argument
nip in>> length nip in>> length
[ [
dup '[ [ _ _ narray functor-instantiated-vocab-name ] _ nkeep ] dup dup '[ [ [ _ ] _ ndip _ narray functor-instantiated-vocab-name ] _ nkeep ]
] [ ] [
[ [
[ [
@ -66,7 +66,7 @@ ERROR: not-all-unique seq ;
! append the IN: and the FROM: quot generator and the functor code ! append the IN: and the FROM: quot generator and the functor code
[ [
append append
'[ @ '[ _ <string-reader> "functor" parse-stream drop ] generate-vocab drop ] '[ @ over '[ _ <string-reader> _ parse-stream drop ] generate-vocab drop ]
] dip ] dip
] 3tri ; ] 3tri ;