Stacke effect fix

release
Slava Pestov 2007-12-06 00:06:43 -05:00
parent 6120f5f387
commit 54b52e7b01
1 changed files with 1 additions and 1 deletions

View File

@ -26,7 +26,7 @@ TAGS>
"extra/xmode/modes/catalog" resource-path "extra/xmode/modes/catalog" resource-path
<file-reader> read-xml parse-modes-tag ; <file-reader> read-xml parse-modes-tag ;
: modes ( -- ) : modes ( -- assoc )
\ modes get-global [ \ modes get-global [
load-catalog dup \ modes set-global load-catalog dup \ modes set-global
] unless* ; ] unless* ;