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

Remove USE-IF: again

db4
Joe Groff 2008-01-17 23:06:32 -08:00
parent 0455603cbd
commit 2295594526
3 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/syntax/syntax-docs.factor
View File

@ -363,12 +363,6 @@ HELP: USE:
{ $description "Adds a new vocabulary at the front of the search path. Subsequent word lookups by the parser will search this vocabulary first." } { $description "Adds a new vocabulary at the front of the search path. Subsequent word lookups by the parser will search this vocabulary first." }
{ $errors "Throws an error if the vocabulary does not exist." } ; { $errors "Throws an error if the vocabulary does not exist." } ;
HELP: USE-IF:
{ $syntax "USE-IF: word vocabulary" }
{ $values { "word" "a word with stack effect " { $snippet "( -- ? )" } } { "vocabulary" "a vocabulary name" } }
{ $description "Adds " { $snippet "vocabulary" } " at the front of the search path if " { $snippet "word" } " evaluates to a true value." }
{ $errors "Throws an error if the vocabulary does not exist." } ;
HELP: USING: HELP: USING:
{ $syntax "USING: vocabularies... ;" } { $syntax "USING: vocabularies... ;" }
{ $values { "vocabularies" "a list of vocabulary names" } } { $values { "vocabularies" "a list of vocabulary names" } }

1
core/syntax/syntax.factor
View File

@ -46,7 +46,6 @@ IN: bootstrap.syntax
] define-syntax ] define-syntax
"USE:" [ scan use+ ] define-syntax "USE:" [ scan use+ ] define-syntax
"USE-IF:" [ scan-word execute scan swap [ use+ ] [ drop ] if ] define-syntax
"USING:" [ ";" parse-tokens add-use ] define-syntax "USING:" [ ";" parse-tokens add-use ] define-syntax

5
extra/opengl/gl/gl.factor
View File

@ -3,9 +3,8 @@
! This file is based on the gl.h that comes with xorg-x11 6.8.2 ! This file is based on the gl.h that comes with xorg-x11 6.8.2
USING: alien alien.syntax kernel sequences system words ; USING: alien alien.syntax kernel parser sequences system words ;
USE-IF: windows? opengl.gl.windows << windows? "opengl.gl.windows" "opengl.gl.unix" ? use+ >>
USE-IF: unix? opengl.gl.unix
IN: opengl.gl IN: opengl.gl