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

Fixing stack effects of things that use TAGS:

db4
Daniel Ehrenberg 2009-02-05 19:04:21 -06:00
parent e32e85bdd8
commit 2466cafbd1
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/xml-rpc/xml-rpc.factor
View File

@ -178,5 +178,5 @@ TAG: array xml>item
! This needs to do something in the event of an error ! This needs to do something in the event of an error
[ send-rpc ] dip http-post nip string>xml receive-rpc ; [ send-rpc ] dip http-post nip string>xml receive-rpc ;
: invoke-method ( params method url -- ) : invoke-method ( params method url -- response )
[ swap <rpc-method> ] dip post-rpc ; [ swap <rpc-method> ] dip post-rpc ;

12
extra/4DNav/space-file-decoder/space-file-decoder.factor
View File

@ -8,7 +8,7 @@ IN: 4DNav.space-file-decoder
: decode-number-array ( x -- y ) : decode-number-array ( x -- y )
"," split [ string>number ] map ; "," split [ string>number ] map ;
TAGS: adsoda-read-model ( tag -- ) TAGS: adsoda-read-model ( tag -- model )
TAG: dimension adsoda-read-model TAG: dimension adsoda-read-model
children>> first string>number ; children>> first string>number ;
@ -56,11 +56,9 @@ TAG: space adsoda-read-model
; ;
: read-model-file ( path -- x ) : read-model-file ( path -- x )
dup [
[ [ file>xml "space" tag-named adsoda-read-model ]
[ file>xml "space" tags-named first adsoda-read-model ] [ 2drop <space> ] recover
[ drop <space> ] recover ] [ <space> ] if*
] [ drop <space> ] if
; ;