Fix compile errors

db4
Slava Pestov 2008-06-15 03:25:41 -05:00
parent ac4f180857
commit 10a87fc0af
4 changed files with 7 additions and 8 deletions

View File

@ -5,7 +5,7 @@ IN: xmode.catalog
TUPLE: mode file file-name-glob first-line-glob ;
<TAGS: parse-mode-tag
<TAGS: parse-mode-tag ( modes tag -- )
TAG: MODE
"NAME" over at >r

View File

@ -7,15 +7,15 @@ IN: xmode.loader
! Based on org.gjt.sp.jedit.XModeHandler
! RULES and its children
<TAGS: parse-rule-tag
<TAGS: parse-rule-tag ( rule-set tag -- )
TAG: PROPS ( rule-set tag -- )
TAG: PROPS
parse-props-tag swap set-rule-set-props ;
TAG: IMPORT ( rule-set tag -- )
TAG: IMPORT
"DELEGATE" swap at swap import-rule-set ;
TAG: TERMINATE ( rule-set tag -- )
TAG: TERMINATE
"AT_CHAR" swap at string>number swap set-rule-set-terminate-char ;
RULE: SEQ seq-rule

View File

@ -75,7 +75,7 @@ SYMBOL: ignore-case?
[ parse-literal-matcher swap set-rule-end ] , ;
! SPAN's children
<TAGS: parse-begin/end-tag
<TAGS: parse-begin/end-tag ( rule tag -- )
TAG: BEGIN
! XXX

View File

@ -48,11 +48,10 @@ SYMBOL: tag-handler-word
: (TAG:) ( name quot -- ) swap tag-handlers get set-at ;
: TAG:
f set-word
scan parse-definition
(TAG:) ; parsing
: TAGS>
tag-handler-word get
tag-handlers get >alist [ >r dup name-tag r> case ] curry
(( tag -- )) define-declared ; parsing
define ; parsing