oops
svn: r7783
This commit is contained in:
parent
06d4ce9a53
commit
978ce31303
|
@ -1,6 +1,6 @@
|
||||||
#lang scheme/base
|
#lang scheme/base
|
||||||
|
|
||||||
(require "private/search.ss")
|
(require "search.ss")
|
||||||
(define argv (current-command-line-arguments))
|
(define argv (current-command-line-arguments))
|
||||||
(when (equal? argv #())
|
(when (equal? argv #())
|
||||||
(error 'help-desk "expected a search term on the command line"))
|
(error 'help-desk "expected a search term on the command line"))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user