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

remove lib usage

db4
Doug Coleman 2008-10-02 17:24:55 -05:00
parent 39eacca297
commit 84e267a2a9
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/lisp/lisp.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2008 James Cash ! Copyright (C) 2008 James Cash
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel peg sequences arrays strings combinators.lib USING: kernel peg sequences arrays strings
namespaces combinators math locals locals.private locals.backend accessors namespaces combinators math locals locals.private locals.backend accessors
vectors syntax lisp.parser assocs parser sequences.lib words vectors syntax lisp.parser assocs parser words
quotations fry lists summary combinators.short-circuit continuations multiline ; quotations fry lists summary combinators.short-circuit continuations multiline ;
IN: lisp IN: lisp
@ -180,4 +180,4 @@ M: no-such-var summary drop "No such variable" ;
: <LISP : <LISP
"LISP>" parse-multiline-string define-lisp-builtins "LISP>" parse-multiline-string define-lisp-builtins
lisp-string>factor parsed \ call parsed ; parsing lisp-string>factor parsed \ call parsed ; parsing

4
extra/lisp/parser/parser.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 James Cash ! Copyright (C) 2008 James Cash
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel peg peg.ebnf math.parser sequences arrays strings USING: kernel peg peg.ebnf math.parser sequences arrays strings
combinators.lib math fry accessors lists combinators.short-circuit ; math fry accessors lists combinators.short-circuit ;
IN: lisp.parser IN: lisp.parser
@ -36,4 +36,4 @@ atom = number
| string | string
s-expression = LPAREN (list-item)* RPAREN => [[ second seq>cons ]] s-expression = LPAREN (list-item)* RPAREN => [[ second seq>cons ]]
list-item = _ ( atom | s-expression ) _ => [[ second ]] list-item = _ ( atom | s-expression ) _ => [[ second ]]
;EBNF ;EBNF