Machine-Independent MDL for TOPS-20 and VAX.

[pdp10-muddle.git] / mim / development / mim / mimc / msetc.mud

diff --git a/mim/development/mim/mimc/msetc.mud b/mim/development/mim/mimc/msetc.mud
new file mode 100644 (file)
index 0000000..f5a15d9
--- /dev/null
+++ b/mim/development/mim/mimc/msetc.mud
@@ -0,0 +1,15 @@
+<DEFINE MULTI-SET!- ('L "TUPLE" X)
+       #DECL ((L) <LIST [REST ATOM]>)
+       <COND (<N==? <LENGTH .X> <LENGTH .L>>
+              <ERROR WRONG-NUMBER-OF-VARIABLES .L .X>)
+             (ELSE
+              <MAPF <>
+                    <FUNCTION (A B "AUX" LB)
+                         <COND (<AND ,M$$DECL-CHECK!-INTERNAL
+                                     <SET LB <CALL NTHR .A ,M$$LVAL>>
+                                     <SET LB <M$$DECL .LB>>
+                                     <NOT <DECL? .B .LB>>>
+                                <ERROR DECL-VIOLATION!-ERRORS .A .B .LB
+                                       MULTI-SET>)
+                               (ELSE
+                                <SET .A .B>)>> .L .X>)>>
\ No newline at end of file