17 lines
373 B
Racket
17 lines
373 B
Racket
#lang typed/racket
|
|
|
|
(: g : Number -> Number)
|
|
(define (g x) (add1 x))
|
|
|
|
(provide g)
|
|
|
|
(module* main #f
|
|
(g (assert (string->number
|
|
(vector-ref (current-command-line-arguments) 0)))))
|
|
|
|
;; Test mode:
|
|
(module test racket/base
|
|
(require syntax/location)
|
|
(parameterize ([current-command-line-arguments (vector "1")])
|
|
(dynamic-require (quote-module-path "..") #f)))
|