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

View File

@ -178,5 +178,5 @@ TAG: array xml>item
! This needs to do something in the event of an error
[ 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 ;

View File

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