From 05387aa7501e343fed6017bacb5addc26bbc998d Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 23 Nov 2017 02:44:22 -0600
Subject: [PATCH] namespaces.extras: Fix new functors.

---
 extra/namespaces/extras/extras.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/namespaces/extras/extras.factor b/extra/namespaces/extras/extras.factor
index 407f4cc362..3032c8c2ab 100644
--- a/extra/namespaces/extras/extras.factor
+++ b/extra/namespaces/extras/extras.factor
@@ -50,7 +50,7 @@ ERROR: not-all-unique seq ;
         ! make FROM: vocab => word ; for each input argument
         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
-            '[ @ '[ _ <string-reader> "functor" parse-stream drop ] generate-vocab drop ]
+            '[ @ over '[ _ <string-reader> _ parse-stream drop ] generate-vocab drop ]
         ] dip
     ] 3tri ;