oops—fix STRUCT: functor

2009-08-30 22:40:18 -05:00 · 2009-08-30 22:40:18 -05:00 · 472189452d
parent ccb27f81ea
commit 472189452d
1 changed files with 1 additions and 1 deletions
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@ -301,7 +301,7 @@ SYNTAX: S@

 : parse-struct-slot` ( accum -- accum )
    scan-string-param scan-c-type` \ } parse-until
-    [ <struct-slot-spec> ] 3curry over push-all ;
+    [ <struct-slot-spec> over push ] 3curry over push-all ;

 : parse-struct-slots` ( accum -- accum more? )
    scan {