X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;ds=sidebyside;f=generate;h=77469ac9ec6e883a6a8233963e158e0a246fb096;hb=579c775ab875b89de0ecebad4eab8d8987e11a24;hp=62e915fb35df1065f466a1c25b5f4312b52bc726;hpb=70fe981f4fa66e0590f867519d5cb02c3a31dbf4;p=secnet.git diff --git a/generate b/generate index 62e915f..77469ac 100755 --- a/generate +++ b/generate @@ -235,7 +235,7 @@ sub process_input_mk ($$$$) { $set_esc->(); next; } elsif (s#^\s*$esc\:endm\s+$##) { - $pop_nest->('Macro'); + $pop_nest->('macro'); od "endef\n"; next; } elsif (s#^\s*$esc\:(?=(-?)include|macro)##) { @@ -309,7 +309,7 @@ sub process_input_mk ($$$$) { od "\n"; } elsif (m#^macro\s+(\S+)\s+$#) { od "define $1\n"; - $push_nest->('Macro', 1); + $push_nest->('macro', 1, '&:macro'); } else { die "internal error ($_?)"; }