diff --git a/projects/library/asma.tal b/projects/library/asma.tal index bd4f8f3..3d619cb 100644 --- a/projects/library/asma.tal +++ b/projects/library/asma.tal @@ -598,7 +598,10 @@ include projects/library/heap.tal ,&new-label JCN ( label already exists ) - ( FIXME check label address hasn't changed (label defined twice) ) + LDA2k ;asma/addr LDA2 EQU2 ,&address-match JCN + ;asma-msg-redefined ;asma/error STA2 + + &address-match #01 JMP2r &new-label ( incoming-ptr* ) @@ -817,6 +820,7 @@ include projects/library/heap.tal @asma-msg-macro "Macro 20 "already 20 "exists 00 @asma-msg-rewound "Memory 20 "overwrite 00 @asma-msg-too-deep "Recursion 20 "level 20 "too 20 "deep 00 +@asma-msg-redefined "Label 20 "redefined 00 ( trees )