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

reuse @ and _ from fry in placeholders for invalid-quotation-input errors rather than making our own redundant placeholder symbols

db4
Joe Groff 2010-03-07 20:08:35 -08:00
parent f353b13bbc
commit 66687d6b21
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/stack-checker/values/values.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2008, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors namespaces kernel assocs sequences
USING: accessors namespaces fry kernel assocs sequences
stack-checker.recursive-state stack-checker.errors
quotations ;
IN: stack-checker.values
@ -120,15 +120,12 @@ M: f (literal-value?) drop f ;
M: f (literal) current-word get bad-macro-input ;
SYMBOL: (_)
ERROR: (@) ;
GENERIC: known>callable ( known -- quot )
: ?@ ( x -- y )
dup callable? [ drop [ (@) ] ] unless ;
dup callable? [ drop [ @ ] ] unless ;
M: object known>callable drop (_) ;
M: object known>callable drop \ _ ;
M: literal known>callable value>> ;
M: composed known>callable
[ quot1>> known known>callable ?@ ] [ quot2>> known known>callable ?@ ] bi