scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add ,reload-package 

part of darcs patch Thu Sep 22 18:58:17 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 16:35:49 +00:00
parent 1d2a36c982
commit 62365b40d3
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/nuit-packages.scm
View File

@ -518,6 +518,11 @@
environments environments
package-commands-internal package-commands-internal
package-mutation package-mutation
ensures-loaded
(subset packages (structure-package))
(subset packages-internal
(package-unstable?
set-package-loaded?!))
inspection-objects inspection-objects
eval-environment) eval-environment)

10
scheme/scheme-commands.scm
View File

@ -29,6 +29,16 @@
",inspect requires an argument" ",inspect requires an argument"
(make-inspection-object (make-inspection-object
(eval-string (string-join args))))) (eval-string (string-join args)))))
((reload-package)
(if (null? args)
",reload-package requires an argument"
(let ((s (get-structure (string->symbol (car args)))))
(if (not (package-unstable? (structure-package s)))
"read-only structure"
(begin
(set-package-loaded?! (structure-package s) #f)
(ensure-loaded s)
"reloaded package")))))
((exit) ((exit)
(exit)) (exit))
(else (error "unknwon scheme command" command)))) (else (error "unknwon scheme command" command))))