From 1a149b64899a41b70da10458d2f2f31ba8cf3e47 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 27 May 1992 17:23:14 +0000 Subject: [PATCH] Repaginate. --- v7/src/runtime/cpress.scm | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/v7/src/runtime/cpress.scm b/v7/src/runtime/cpress.scm index 045c82557..3fa1ad8ab 100644 --- a/v7/src/runtime/cpress.scm +++ b/v7/src/runtime/cpress.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/cpress.scm,v 1.3 1992/05/26 23:09:18 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/cpress.scm,v 1.4 1992/05/27 17:23:14 cph Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -299,7 +299,7 @@ MIT in each case. |# (set! oldest-node node)) (set! newest-node node) node)) - + (define (update-node-pointer node) (set-node-pointer! node current-pointer) (set-node-bp! node current-bp) @@ -326,7 +326,7 @@ MIT in each case. |# (if sibling (set-node-previous! sibling child)) (set-node-children! parent child)) (vector-set! root-nodes byte child))) - + (define (replace-child child child*) (let ((parent (node-parent child)) (byte (node-byte child))) @@ -369,10 +369,10 @@ MIT in each case. |# (cond ((not parent) (vector-set! root-nodes (node-byte node) false)) ((node-nb parent) - (delete-child parent node))) - (set-node-nb! node true))) + (delete-child parent node)))) + (set-node-nb! node true)) unspecific)))) - + (define (delete-child parent child) (let ((previous (node-previous child)) (next (node-next child))) @@ -727,5 +727,4 @@ MIT in each case. |# (define (uncompress ifile ofile) (uncompress-internal ifile ofile (lambda (message . irritants) - (error message irritants))) - unspecific) + (error message irritants)))) \ No newline at end of file -- 2.25.1