X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=%3Cmdl.comp%3E%2Fnhelp.mud.4;fp=%3Cmdl.comp%3E%2Fnhelp.mud.4;h=c3aba069f89fc65608b23612612ff1ef42112453;hp=0000000000000000000000000000000000000000;hb=3395a5e4ef72d59cdb6832af7808dc9c2cf2a413;hpb=363cc6ead5cf4df20759797fe46b5dc29b3886e9

diff --git a/<mdl.comp>/nhelp.mud.4 b/<mdl.comp>/nhelp.mud.4
new file mode 100644
index 0000000..c3aba06
--- /dev/null
+++ b/<mdl.comp>/nhelp.mud.4
@@ -0,0 +1,36 @@
+<NEWTYPE TOKEN VECTOR>
+
+<PUT SYMBOL DECL '<OR SYMTAB COMMON TEMP>>
+
+<REMOVE MUDREF!-OP!-PACKAGE>
+
+<NEWTYPE COMMON VECTOR '<VECTOR [4 ANY]>>
+
+<NEWTYPE MUDREF!-OP!-PACKAGE WORD>
+
+<SET REASONABLE T>
+<SET HELP-COMPIL T>
+<NEWTYPE SAVED-STATE
+	 LIST
+	 '<LIST [REST
+		 <LIST AC
+		       <OR FALSE <LIST [REST SYMTAB]>>
+		       [REST <LIST SYMTAB ANY>]>]>>
+
+<NEWTYPE TEMPV LIST>
+
+
+<OR <GASSIGNED? DISPATCH> <DEFINE DISPATCH ("ARGS" FOO) []>>
+<SET GLUE!- T>
+
+<SETG IF!- ,AND>
+<SETG TEMPLATE-NTH T>
+<SETG TEMPLATE-PUT T>
+<SETG IF-NOT!- ,OR>
+<BLOCK (!.OBLIST <GET PACKAGE OBLIST>)>
+<FLOAD "CMP:BOPHAC">
+<FLOAD "CMP:MUDHAK">
+<BEGIN-HACK "COMPIL">
+<BEGIN-MHACK>
+<FLOAD "CMP:NN">
+
\ No newline at end of file