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

Fix regression with see'ing gensyms

Slava Pestov 2009-05-16 16:57:58 -05:00
parent 750a17ff63
commit ef29d6263d
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/see/see-tests.factor
View File

@ -1,5 +1,5 @@
IN: see.tests IN: see.tests
USING: see tools.test io.streams.string math ; USING: see tools.test io.streams.string math words ;
CONSTANT: test-const 10 CONSTANT: test-const 10
[ "IN: see.tests\nCONSTANT: test-const 10 inline\n" ] [ "IN: see.tests\nCONSTANT: test-const 10 inline\n" ]
@ -9,3 +9,5 @@ ALIAS: test-alias +
[ "USING: math ;\nIN: see.tests\nALIAS: test-alias + inline\n" ] [ "USING: math ;\nIN: see.tests\nALIAS: test-alias + inline\n" ]
[ [ \ test-alias see ] with-string-writer ] unit-test [ [ \ test-alias see ] with-string-writer ] unit-test
[ ] [ gensym see ] unit-test

2
basis/see/see.factor
View File

@ -44,7 +44,7 @@ M: word print-stack-effect? drop t ;
<PRIVATE <PRIVATE
: seeing-word ( word -- ) : seeing-word ( word -- )
vocabulary>> vocab pprinter-in set ; vocabulary>> dup [ vocab ] when pprinter-in set ;
: word-synopsis ( word -- ) : word-synopsis ( word -- )
{ {