#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dbgutl.scm,v 14.4 1988/12/30 06:42:27 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dbgutl.scm,v 14.5 1988/12/30 23:29:46 cph Exp $
Copyright (c) 1988 Massachusetts Institute of Technology
(declare (usual-integrations))
\f
-(define (initialize-package!)
- (set! rename-list
- `((,lambda-tag:unnamed . LAMBDA)
- (,lambda-tag:internal-lambda . LAMBDA)
- (,lambda-tag:internal-lexpr . LAMBDA)
- (,lambda-tag:let . LET)
- (,lambda-tag:fluid-let . FLUID-LET)
- (,lambda-tag:make-environment . MAKE-ENVIRONMENT))))
-
(define (print-user-friendly-name environment)
(let ((name (environment-procedure-name environment)))
(if name
- (let ((rename (special-name? name)))
+ (let ((rename (special-form-procedure-name? name)))
(if rename
(begin (write-string "a ")
- (write (cdr rename))
+ (write-string rename)
(write-string " special form"))
(begin (write-string "the procedure ")
(write-dbg-name name))))
(write-string "an unknown procedure"))))
-(define (special-name? name)
- (list-search-positive rename-list
- (lambda (association)
- (dbg-name=? (car association) name))))
+(define (show-frames environment depth)
+ (let loop ((environment environment) (depth depth))
+ (show-frame environment depth true)
+ (if (environment-has-parent? environment)
+ (begin
+ (newline)
+ (loop (environment-parent environment) (1+ depth))))))
+
+(define (write-dbg-name name)
+ (if (string? name) (write-string name) (write name)))
-(define rename-list)
+(define (debug/read-eval-print-1 environment)
+ (let ((value (debug/eval (prompt-for-expression "Eval--> ") environment)))
+ (newline)
+ (write value)))
+
+(define (output-to-string length thunk)
+ (let ((x (with-output-to-truncated-string length thunk)))
+ (if (and (car x) (> length 4))
+ (substring-move-right! " ..." 0 4 (cdr x) (- length 4)))
+ (cdr x)))
\f
(define (show-frame environment depth brief?)
(write-string "Environment ")
(define brief-bindings-limit
16)
-(define (show-frames environment depth)
- (let loop ((environment environment) (depth depth))
- (show-frame environment depth true)
- (if (environment-has-parent? environment)
- (begin
- (newline)
- (loop (environment-parent environment) (1+ depth))))))
-
(define (print-binding name value)
(let ((x-size (output-port/x-size (current-output-port))))
(newline)
s
(output-to-string (max (- x-size (string-length s)) 0)
(lambda ()
- (write value))))))))))
-
-(define (output-to-string length thunk)
- (let ((x (with-output-to-truncated-string length thunk)))
- (if (and (car x) (> length 4))
- (substring-move-right! " ..." 0 4 (cdr x) (- length 4)))
- (cdr x)))
-
-(define (write-dbg-name name)
- (if (string? name) (write-string name) (write name)))
-
-(define (debug/read-eval-print-1 environment)
- (let ((value (debug/eval (prompt-for-expression "Eval--> ") environment)))
- (newline)
- (write value)))
\ No newline at end of file
+ (write value))))))))))
\ No newline at end of file
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/debug.scm,v 14.6 1988/12/30 06:42:33 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/debug.scm,v 14.7 1988/12/30 23:29:54 cph Exp $
Copyright (c) 1988 Massachusetts Institute of Technology
(and (environment? environment)
(environment-procedure-name environment))))
(if (or (not name)
- (special-name? name))
+ (special-form-procedure-name? name))
""
(output-to-string 20 (lambda () (write-dbg-name name)))))
20))
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.4 1988/12/30 06:42:46 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.5 1988/12/30 23:30:00 cph Exp $
Copyright (c) 1988 Massachusetts Institute of Technology
(declare (usual-integrations))
(declare (integrate-external "infstr"))
\f
-(define (compiled-code-block/dbg-info block)
+(define (initialize-package!)
+ (set! blocks-with-memoized-debugging-info (make-population))
+ (set! special-form-procedure-names
+ `((,lambda-tag:unnamed . LAMBDA)
+ (,lambda-tag:internal-lambda . LAMBDA)
+ (,lambda-tag:internal-lexpr . LAMBDA)
+ (,lambda-tag:let . LET)
+ (,lambda-tag:fluid-let . FLUID-LET)
+ (,lambda-tag:make-environment . MAKE-ENVIRONMENT)))
+ unspecific)
+
+(define (compiled-code-block/dbg-info block demand-load?)
(let ((old-info (compiled-code-block/debugging-info block)))
(if (and (pair? old-info) (dbg-info? (car old-info)))
(car old-info)
- (let ((dbg-info (read-debugging-info old-info)))
- (if dbg-info
- (memoize-debugging-info! block dbg-info))
- dbg-info))))
+ (and demand-load?
+ (let ((dbg-info (read-debugging-info old-info)))
+ (if dbg-info
+ (memoize-debugging-info! block dbg-info))
+ dbg-info)))))
(define (discard-debugging-info!)
(without-interrupts
(set-compiled-code-block/debugging-info! block (cdr old-info)))))
(define blocks-with-memoized-debugging-info)
-
-(define (initialize-package!)
- (set! blocks-with-memoized-debugging-info (make-population))
- unspecific)
\f
-(define (compiled-entry/dbg-object entry)
+(define (compiled-entry/dbg-object entry #!optional demand-load?)
(let ((block (compiled-entry/block entry))
(offset (compiled-entry/offset entry)))
- (let ((dbg-info (compiled-code-block/dbg-info block)))
- (discriminate-compiled-entry entry
- (lambda ()
- (vector-binary-search (dbg-info/procedures dbg-info)
- <
- dbg-procedure/label-offset
- offset))
- (lambda ()
- (vector-binary-search (dbg-info/continuations dbg-info)
- <
- dbg-continuation/label-offset
- offset))
- (lambda ()
- (let ((expression (dbg-info/expression dbg-info)))
- (and (= offset (dbg-expression/label-offset expression))
- expression)))
- (lambda ()
- false)))))
+ (let ((dbg-info
+ (compiled-code-block/dbg-info block
+ (if (default-object? demand-load?)
+ false
+ demand-load?))))
+ (and dbg-info
+ (discriminate-compiled-entry entry
+ (lambda ()
+ (vector-binary-search (dbg-info/procedures dbg-info)
+ <
+ dbg-procedure/label-offset
+ offset))
+ (lambda ()
+ (vector-binary-search (dbg-info/continuations dbg-info)
+ <
+ dbg-continuation/label-offset
+ offset))
+ (lambda ()
+ (let ((expression (dbg-info/expression dbg-info)))
+ (and (= offset (dbg-expression/label-offset expression))
+ expression)))
+ (lambda ()
+ false))))))
(define (compiled-entry/block entry)
(if (compiled-closure? entry)
(else
false))))
-(define (compiled-procedure/name entry)
- (and *compiler-info/load-on-demand?*
- (let ((procedure (compiled-entry/dbg-object entry)))
- (and procedure
- (dbg-procedure/name procedure)))))
-
-(define *compiler-info/load-on-demand?*
- false)
-
(define (dbg-labels/find-offset labels offset)
(vector-binary-search labels < dbg-label/offset offset))
((object-type? (ucode-type uninterned-symbol) name)
(write-to-string name))
(else
- (error "Illegal dbg-name" name))))
\ No newline at end of file
+ (error "Illegal dbg-name" name))))
+
+ (let ((procedure
+ (compiled-entry/dbg-object entry *compiler-info/load-on-demand?*)))
+ (let ((procedure (compiled-entry/dbg-object entry)))
+ (and procedure
+ (let ((name (dbg-procedure/name procedure)))
+ (or (special-form-procedure-name? name)
+ name)))))
+(define *compiler-info/load-on-demand?*
+ false)
+
+
+(define (special-form-procedure-name? name)
+ (let ((association
+ (list-search-positive special-form-procedure-names
+ (lambda (association)
+ (dbg-name=? (car association) name)))))
+ (and association
+ (symbol->string (cdr association)))))
+(define special-form-procedure-names) entry)))
\ No newline at end of file
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/make.scm,v 14.5 1988/10/29 00:12:33 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/make.scm,v 14.6 1988/12/30 23:30:07 cph Exp $
Copyright (c) 1988 Massachusetts Institute of Technology
\f
;;;; Utilities
-(define (fasload filename)
+(define fasload-saved-values
+ '())
+
+(define (fasload filename save-value?)
(tty-write-char newline-char)
(tty-write-string filename)
(tty-flush-output)
(let ((value (binary-fasload filename)))
(tty-write-string " loaded")
(tty-flush-output)
+ (if save-value?
+ (set! fasload-saved-values
+ (cons (cons filename value)
+ fasload-saved-values)))
value))
(define (eval object environment)
\f
;; Construct the package structure.
;; Lotta hair here to load the package code before its package is built.
-(eval (cold-load/purify (fasload (map-filename "packag")))
+(eval (cold-load/purify (fasload (map-filename "packag") true))
environment-for-package)
((access initialize-package! environment-for-package))
(let loop ((names
(car names))
(loop (cdr names)))))
(package/add-child! system-global-package 'PACKAGE environment-for-package)
-(eval (fasload "runtim.bcon") system-global-environment)
+(eval (fasload "runtim.bcon" false) system-global-environment)
;; Global databases. Load, then initialize.
(let loop
("gc" . (RUNTIME GARBAGE-COLLECTOR)))))
(if (not (null? files))
(begin
- (eval (cold-load/purify (fasload (map-filename (car (car files)))))
+ (eval (cold-load/purify
+ (fasload (map-filename (car (car files))) true))
(package-reference (cdr (car files))))
(loop (cdr files)))))
(package-initialize '(RUNTIME GC-DAEMONS) 'INITIALIZE-PACKAGE!)
constant-space/base)
;; Load everything else.
-((eval (fasload "runtim.bldr") system-global-environment)
+((eval (fasload "runtim.bldr" false) system-global-environment)
(lambda (filename environment)
(if (not (or (string=? filename "packag")
(string=? filename "gcdemn")
(string=? filename "boot")
(string=? filename "queue")
(string=? filename "gc")))
- (eval (purify (fasload (map-filename filename))) environment)))
+ (eval (purify (fasload (map-filename filename) true)) environment)))
`((SORT-TYPE . MERGE-SORT)
(OS-TYPE . ,(string->symbol (string-upcase os-name-string)))
(OPTIONS . NO-LOAD)))
;; Emacs -- last because it grabs the kitchen sink.
(RUNTIME EMACS-INTERFACE)
))
+\f
+(let ((fasload/update-debugging-info!
+ (access fasload/update-debugging-info!
+ (->environment '(RUNTIME COMPILER-INFO)))))
+ (for-each (lambda (entry)
+ (fasload/update-debugging-info! (cdr entry)
+ (->pathname (car entry))))
+ fasload-saved-values))
)
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.23 1988/12/30 06:43:14 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.24 1988/12/30 23:30:13 cph Exp $
Copyright (c) 1988 Massachusetts Institute of Technology
compiled-procedure/name
discard-debugging-info!)
(export (runtime load) fasload/update-debugging-info!)
- (export (runtime debugger-utilities)
- dbg-name<?
- dbg-name=?)
+ (export (runtime debugger-command-loop)
+ special-form-procedure-name?)
(export (runtime environment)
dbg-block/find-name
dbg-block/ic-parent-index
show-environment-bindings
show-frame
show-frames
- special-name?
write-dbg-name)
(initialization (initialize-package!)))
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/savres.scm,v 14.6 1988/10/21 00:17:34 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/savres.scm,v 14.7 1988/12/30 23:30:21 cph Exp $
Copyright (c) 1988 Massachusetts Institute of Technology
(let ((identify
(if (default-object? identify) world-identification identify))
(time (get-decoded-time)))
+ (discard-debugging-info!)
(gc-flip)
(trigger-secondary-gc-daemons!)
(save-image filename
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/dbgutl.scm,v 14.4 1988/12/30 06:42:27 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/dbgutl.scm,v 14.5 1988/12/30 23:29:46 cph Exp $
Copyright (c) 1988 Massachusetts Institute of Technology
(declare (usual-integrations))
\f
-(define (initialize-package!)
- (set! rename-list
- `((,lambda-tag:unnamed . LAMBDA)
- (,lambda-tag:internal-lambda . LAMBDA)
- (,lambda-tag:internal-lexpr . LAMBDA)
- (,lambda-tag:let . LET)
- (,lambda-tag:fluid-let . FLUID-LET)
- (,lambda-tag:make-environment . MAKE-ENVIRONMENT))))
-
(define (print-user-friendly-name environment)
(let ((name (environment-procedure-name environment)))
(if name
- (let ((rename (special-name? name)))
+ (let ((rename (special-form-procedure-name? name)))
(if rename
(begin (write-string "a ")
- (write (cdr rename))
+ (write-string rename)
(write-string " special form"))
(begin (write-string "the procedure ")
(write-dbg-name name))))
(write-string "an unknown procedure"))))
-(define (special-name? name)
- (list-search-positive rename-list
- (lambda (association)
- (dbg-name=? (car association) name))))
+(define (show-frames environment depth)
+ (let loop ((environment environment) (depth depth))
+ (show-frame environment depth true)
+ (if (environment-has-parent? environment)
+ (begin
+ (newline)
+ (loop (environment-parent environment) (1+ depth))))))
+
+(define (write-dbg-name name)
+ (if (string? name) (write-string name) (write name)))
-(define rename-list)
+(define (debug/read-eval-print-1 environment)
+ (let ((value (debug/eval (prompt-for-expression "Eval--> ") environment)))
+ (newline)
+ (write value)))
+
+(define (output-to-string length thunk)
+ (let ((x (with-output-to-truncated-string length thunk)))
+ (if (and (car x) (> length 4))
+ (substring-move-right! " ..." 0 4 (cdr x) (- length 4)))
+ (cdr x)))
\f
(define (show-frame environment depth brief?)
(write-string "Environment ")
(define brief-bindings-limit
16)
-(define (show-frames environment depth)
- (let loop ((environment environment) (depth depth))
- (show-frame environment depth true)
- (if (environment-has-parent? environment)
- (begin
- (newline)
- (loop (environment-parent environment) (1+ depth))))))
-
(define (print-binding name value)
(let ((x-size (output-port/x-size (current-output-port))))
(newline)
s
(output-to-string (max (- x-size (string-length s)) 0)
(lambda ()
- (write value))))))))))
-
-(define (output-to-string length thunk)
- (let ((x (with-output-to-truncated-string length thunk)))
- (if (and (car x) (> length 4))
- (substring-move-right! " ..." 0 4 (cdr x) (- length 4)))
- (cdr x)))
-
-(define (write-dbg-name name)
- (if (string? name) (write-string name) (write name)))
-
-(define (debug/read-eval-print-1 environment)
- (let ((value (debug/eval (prompt-for-expression "Eval--> ") environment)))
- (newline)
- (write value)))
\ No newline at end of file
+ (write value))))))))))
\ No newline at end of file
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.4 1988/12/30 06:42:46 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.5 1988/12/30 23:30:00 cph Exp $
Copyright (c) 1988 Massachusetts Institute of Technology
(declare (usual-integrations))
(declare (integrate-external "infstr"))
\f
-(define (compiled-code-block/dbg-info block)
+(define (initialize-package!)
+ (set! blocks-with-memoized-debugging-info (make-population))
+ (set! special-form-procedure-names
+ `((,lambda-tag:unnamed . LAMBDA)
+ (,lambda-tag:internal-lambda . LAMBDA)
+ (,lambda-tag:internal-lexpr . LAMBDA)
+ (,lambda-tag:let . LET)
+ (,lambda-tag:fluid-let . FLUID-LET)
+ (,lambda-tag:make-environment . MAKE-ENVIRONMENT)))
+ unspecific)
+
+(define (compiled-code-block/dbg-info block demand-load?)
(let ((old-info (compiled-code-block/debugging-info block)))
(if (and (pair? old-info) (dbg-info? (car old-info)))
(car old-info)
- (let ((dbg-info (read-debugging-info old-info)))
- (if dbg-info
- (memoize-debugging-info! block dbg-info))
- dbg-info))))
+ (and demand-load?
+ (let ((dbg-info (read-debugging-info old-info)))
+ (if dbg-info
+ (memoize-debugging-info! block dbg-info))
+ dbg-info)))))
(define (discard-debugging-info!)
(without-interrupts
(set-compiled-code-block/debugging-info! block (cdr old-info)))))
(define blocks-with-memoized-debugging-info)
-
-(define (initialize-package!)
- (set! blocks-with-memoized-debugging-info (make-population))
- unspecific)
\f
-(define (compiled-entry/dbg-object entry)
+(define (compiled-entry/dbg-object entry #!optional demand-load?)
(let ((block (compiled-entry/block entry))
(offset (compiled-entry/offset entry)))
- (let ((dbg-info (compiled-code-block/dbg-info block)))
- (discriminate-compiled-entry entry
- (lambda ()
- (vector-binary-search (dbg-info/procedures dbg-info)
- <
- dbg-procedure/label-offset
- offset))
- (lambda ()
- (vector-binary-search (dbg-info/continuations dbg-info)
- <
- dbg-continuation/label-offset
- offset))
- (lambda ()
- (let ((expression (dbg-info/expression dbg-info)))
- (and (= offset (dbg-expression/label-offset expression))
- expression)))
- (lambda ()
- false)))))
+ (let ((dbg-info
+ (compiled-code-block/dbg-info block
+ (if (default-object? demand-load?)
+ false
+ demand-load?))))
+ (and dbg-info
+ (discriminate-compiled-entry entry
+ (lambda ()
+ (vector-binary-search (dbg-info/procedures dbg-info)
+ <
+ dbg-procedure/label-offset
+ offset))
+ (lambda ()
+ (vector-binary-search (dbg-info/continuations dbg-info)
+ <
+ dbg-continuation/label-offset
+ offset))
+ (lambda ()
+ (let ((expression (dbg-info/expression dbg-info)))
+ (and (= offset (dbg-expression/label-offset expression))
+ expression)))
+ (lambda ()
+ false))))))
(define (compiled-entry/block entry)
(if (compiled-closure? entry)
(else
false))))
-(define (compiled-procedure/name entry)
- (and *compiler-info/load-on-demand?*
- (let ((procedure (compiled-entry/dbg-object entry)))
- (and procedure
- (dbg-procedure/name procedure)))))
-
-(define *compiler-info/load-on-demand?*
- false)
-
(define (dbg-labels/find-offset labels offset)
(vector-binary-search labels < dbg-label/offset offset))
((object-type? (ucode-type uninterned-symbol) name)
(write-to-string name))
(else
- (error "Illegal dbg-name" name))))
\ No newline at end of file
+ (error "Illegal dbg-name" name))))
+
+ (let ((procedure
+ (compiled-entry/dbg-object entry *compiler-info/load-on-demand?*)))
+ (let ((procedure (compiled-entry/dbg-object entry)))
+ (and procedure
+ (let ((name (dbg-procedure/name procedure)))
+ (or (special-form-procedure-name? name)
+ name)))))
+(define *compiler-info/load-on-demand?*
+ false)
+
+
+(define (special-form-procedure-name? name)
+ (let ((association
+ (list-search-positive special-form-procedure-names
+ (lambda (association)
+ (dbg-name=? (car association) name)))))
+ (and association
+ (symbol->string (cdr association)))))
+(define special-form-procedure-names) entry)))
\ No newline at end of file
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/make.scm,v 14.5 1988/10/29 00:12:33 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/make.scm,v 14.6 1988/12/30 23:30:07 cph Exp $
Copyright (c) 1988 Massachusetts Institute of Technology
\f
;;;; Utilities
-(define (fasload filename)
+(define fasload-saved-values
+ '())
+
+(define (fasload filename save-value?)
(tty-write-char newline-char)
(tty-write-string filename)
(tty-flush-output)
(let ((value (binary-fasload filename)))
(tty-write-string " loaded")
(tty-flush-output)
+ (if save-value?
+ (set! fasload-saved-values
+ (cons (cons filename value)
+ fasload-saved-values)))
value))
(define (eval object environment)
\f
;; Construct the package structure.
;; Lotta hair here to load the package code before its package is built.
-(eval (cold-load/purify (fasload (map-filename "packag")))
+(eval (cold-load/purify (fasload (map-filename "packag") true))
environment-for-package)
((access initialize-package! environment-for-package))
(let loop ((names
(car names))
(loop (cdr names)))))
(package/add-child! system-global-package 'PACKAGE environment-for-package)
-(eval (fasload "runtim.bcon") system-global-environment)
+(eval (fasload "runtim.bcon" false) system-global-environment)
;; Global databases. Load, then initialize.
(let loop
("gc" . (RUNTIME GARBAGE-COLLECTOR)))))
(if (not (null? files))
(begin
- (eval (cold-load/purify (fasload (map-filename (car (car files)))))
+ (eval (cold-load/purify
+ (fasload (map-filename (car (car files))) true))
(package-reference (cdr (car files))))
(loop (cdr files)))))
(package-initialize '(RUNTIME GC-DAEMONS) 'INITIALIZE-PACKAGE!)
constant-space/base)
;; Load everything else.
-((eval (fasload "runtim.bldr") system-global-environment)
+((eval (fasload "runtim.bldr" false) system-global-environment)
(lambda (filename environment)
(if (not (or (string=? filename "packag")
(string=? filename "gcdemn")
(string=? filename "boot")
(string=? filename "queue")
(string=? filename "gc")))
- (eval (purify (fasload (map-filename filename))) environment)))
+ (eval (purify (fasload (map-filename filename) true)) environment)))
`((SORT-TYPE . MERGE-SORT)
(OS-TYPE . ,(string->symbol (string-upcase os-name-string)))
(OPTIONS . NO-LOAD)))
;; Emacs -- last because it grabs the kitchen sink.
(RUNTIME EMACS-INTERFACE)
))
+\f
+(let ((fasload/update-debugging-info!
+ (access fasload/update-debugging-info!
+ (->environment '(RUNTIME COMPILER-INFO)))))
+ (for-each (lambda (entry)
+ (fasload/update-debugging-info! (cdr entry)
+ (->pathname (car entry))))
+ fasload-saved-values))
)
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.23 1988/12/30 06:43:14 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.24 1988/12/30 23:30:13 cph Exp $
Copyright (c) 1988 Massachusetts Institute of Technology
compiled-procedure/name
discard-debugging-info!)
(export (runtime load) fasload/update-debugging-info!)
- (export (runtime debugger-utilities)
- dbg-name<?
- dbg-name=?)
+ (export (runtime debugger-command-loop)
+ special-form-procedure-name?)
(export (runtime environment)
dbg-block/find-name
dbg-block/ic-parent-index
show-environment-bindings
show-frame
show-frames
- special-name?
write-dbg-name)
(initialization (initialize-package!)))
projects / mit-scheme.git / commitdiff