8 lines
225 B
Scheme
8 lines
225 B
Scheme
#lang scheme/base
|
|
|
|
(require "search.ss")
|
|
(define argv (current-command-line-arguments))
|
|
(when (equal? argv #())
|
|
(error 'help-desk "expected a search term on the command line"))
|
|
(generate-search-results (vector->list argv))
|