From 0b508cc2420ad9ae96fddc033eb2b1394953930f Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sat, 24 Mar 1990 19:14:13 +0000
Subject: [PATCH] Add arities to primitive definitions so that the file will
 syntax and load in systems with no process primitives.

---
 v7/src/runtime/process.scm | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/v7/src/runtime/process.scm b/v7/src/runtime/process.scm
index ed5ca6776..c67b2047f 100644
--- a/v7/src/runtime/process.scm
+++ b/v7/src/runtime/process.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/process.scm,v 1.2 1990/03/16 22:43:33 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/process.scm,v 1.3 1990/03/24 19:14:13 jinx Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -45,16 +45,19 @@ MIT in each case. |#
        (macro names
 	 `(DEFINE-PRIMITIVES
 	    ,@(map (lambda (name)
-		     (list (symbol-append 'prim- name)
-			   name))
+		     (let ((name (car name))
+			   (arity (cadr name)))
+		       (list (symbol-append 'prim- name)
+			     name
+			     arity)))
 		   names)))))
   (define-special-primitives
-    create-process
-    process-get-pid
-    process-get-input-channel
-    process-get-output-channel
-    process-get-status-flags
-    process-char-ready?))
+    (create-process 1)
+    (process-get-pid 1)
+    (process-get-input-channel 1)
+    (process-get-output-channel 1)
+    (process-get-status-flags 1)
+    (process-char-ready? 2)))
 
 (let-syntax
     ((define-process-primitives
@@ -83,14 +86,14 @@ MIT in each case. |#
   )
 
 (define (create-process command-string)
-  (let* ((prim-process ((ucode-primitive create-process) command-string))
+  (let* ((prim-process ((ucode-primitive create-process 1) command-string))
 	 (process (make-process command-string prim-process)))
     (set-process/to-port! process (open-process-output process))
     (set-process/from-port! process (open-process-input process))
     process))
 
 (define (kill-process process)
-  ((ucode-primitive kill-process) (process/microcode-process process)))
+  ((ucode-primitive kill-process 1) (process/microcode-process process)))
 
 (define (delete-process process)
   (close-output-port (process/to-port process))
-- 
2.25.1