From: Chris Hanson Date: Sun, 17 May 1987 19:19:03 +0000 (+0000) Subject: Due to changes in the top level of the compiler, determining the X-Git-Tag: 20090517-FFI~13511 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=38e1b42a1f48bfebe508edf84a15a4ce45496e22;p=mit-scheme.git Due to changes in the top level of the compiler, determining the number of parameters of a procedure is done differently. --- diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm index a50bd3566..b31bde83d 100644 --- a/v7/src/compiler/machines/bobcat/lapgen.scm +++ b/v7/src/compiler/machines/bobcat/lapgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.163 1987/05/16 09:00:05 allen Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.164 1987/05/17 19:19:03 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -805,8 +805,8 @@ MIT in each case. |# (let ((procedure (label->procedure label))) `(,@(procedure-header procedure false) (MOVE W - (& ,(+ (length (procedure-required procedure)) - (length (procedure-optional procedure)) + (& ,(+ (procedure-required procedure) + (procedure-optional procedure) (if (procedure/closure? procedure) 1 0))) (D 1)) (MOVEQ (& ,(if (procedure-rest procedure) 1 0)) (D 2)) @@ -826,8 +826,8 @@ MIT in each case. |# (define (procedure-header procedure gc-label) (let ((internal-label (procedure-label procedure))) (append! (if (procedure/closure? procedure) - (let ((required (1+ (length (procedure-required procedure)))) - (optional (length (procedure-optional procedure))) + (let ((required (1+ (procedure-required procedure))) + (optional (procedure-optional procedure)) (label (procedure-external-label procedure))) (if (and (procedure-rest procedure) (zero? required))