From: Chris Hanson Date: Thu, 18 Dec 1986 03:36:31 +0000 (+0000) Subject: Delete non-useful frame editor procedures. X-Git-Tag: 20090517-FFI~13794 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ad2cbd5f93a14e1526966431f41b1e698c7cad98;p=mit-scheme.git Delete non-useful frame editor procedures. --- diff --git a/v7/src/compiler/base/cfg1.scm b/v7/src/compiler/base/cfg1.scm index 10c5d7c89..3deb6c884 100644 --- a/v7/src/compiler/base/cfg1.scm +++ b/v7/src/compiler/base/cfg1.scm @@ -37,7 +37,7 @@ ;;;; Control Flow Graph Abstraction -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/cfg1.scm,v 1.140 1986/12/17 19:32:04 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/cfg1.scm,v 1.141 1986/12/18 03:36:31 cph Exp $ (declare (usual-integrations)) (using-syntax (access compiler-syntax-table compiler-package) @@ -660,15 +660,6 @@ (if entry (make-scfg entry (sframe-next-hooks sframe)) (make-null-cfg)))) - -(define (sframe-edit! sframe procedure) - (let ((entry (frame-&entry sframe)) - (next (sframe-&next sframe))) - (let ((scfg - (procedure (entry-holder-disconnect! entry) - (node-previous-disconnect! next)))) - (entry-holder-connect! entry (cfg-entry-node scfg)) - (hooks-connect! (scfg-next-hooks scfg) next)))) (define pframe-tag (make-vector-tag frame-tag 'PFRAME)) (define-vector-slots pframe 2 &consequent &alternative) @@ -705,18 +696,6 @@ (pframe-alternative-hooks pframe)) (make-null-cfg)))) -(define (pframe-edit! pframe procedure) - (let ((entry (frame-&entry pframe)) - (consequent (pframe-&consequent pframe)) - (alternative (pframe-&alternative pframe))) - (let ((pcfg - (procedure (entry-holder-disconnect! entry) - (node-previous-disconnect! consequent) - (node-previous-disconnect! alternative)))) - (entry-holder-connect! entry (cfg-entry-node pcfg)) - (hooks-connect! (pcfg-consequent-hooks pcfg) consequent) - (hooks-connect! (pcfg-alternative-hooks pcfg) alternative)))) - ;;; end USING-SYNTAX )