ghc/tests/ghci/ghci005.script

   1 :unset +s +t
   2 -- tests for :def, :undef
   3 let void m = m >> return ""
   4 let echo s = void (putStrLn s)
   5 :def echo echo
   6 :echo hello, world!
   7
   8 let echo s = return (":! echo " ++ map Char.toUpper s)
   9 :echo hello, world!
  10 :def echo echo
  11 :undef echo
  12 :def echo echo
  13 :echo hello, world!