From 508a80fe4d4099733f73dc04b2ad2e4b3c1934fd Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 30 Jan 1992 23:21:04 +0000 Subject: [PATCH] Fix typo. --- v7/src/runtime/arith.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/arith.scm b/v7/src/runtime/arith.scm index 5ea41fd74..95f8fc716 100644 --- a/v7/src/runtime/arith.scm +++ b/v7/src/runtime/arith.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/arith.scm,v 1.22 1992/01/29 20:25:00 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/arith.scm,v 1.23 1992/01/30 23:21:04 jinx Exp $ Copyright (c) 1989-91 Massachusetts Institute of Technology @@ -386,7 +386,7 @@ MIT in each case. |# (bash! true value stack) ;; set-string-maximum-length! also sets the length. ;; (set-string-length! string index) - ((ucode-primitive set-string-maximun-length! 2) string index) + ((ucode-primitive set-string-maximum-length! 2) string index) string))) (cond ((fix:fixnum? number) -- 2.25.1