Fixing stack effects of things that use TAGS:
parent
e32e85bdd8
commit
2466cafbd1
|
@ -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 ;
|
||||
|
|
|
@ -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*
|
||||
;
|
||||
|
||||
|
|
Loading…
Reference in New Issue