Skip to content

Instantly share code, notes, and snippets.

@ijp

ijp/clear.scm

Created January 17, 2015 00:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ijp/451e32fc5d03f75ec694 to your computer and use it in GitHub Desktop.
Save ijp/451e32fc5d03f75ec694 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
clear.scm
(use-modules (system repl command))
(define-meta-command ((clear module) repl)
"clear
Removes all current bindings."
(let ((mod (current-module)))
(module-for-each (lambda (k v)
(module-remove! mod k))
mod)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment