13 lines
489 B
Plaintext
13 lines
489 B
Plaintext
;;;; The call-site half of a bound written in another file.
|
|
;;;;
|
|
;;;; gen/largest is {:where (is-ordered $t)}, and a [string] is not ordered. The
|
|
;;;; refusal has to arrive here, against the call that asked for the copy, and
|
|
;;;; it has to quote the clause — a message pointing into pkgs/gen/gen.flan
|
|
;;;; would be naming a line the caller did not write and cannot change.
|
|
(import gen "pkgs/gen")
|
|
|
|
(defn main [] i32
|
|
(let [ss ["a" "b"]]
|
|
(println (gen/largest (slice ss 0 2))))
|
|
0)
|