mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-11 20:49:05 +03:00
23 lines
318 B
Plaintext
23 lines
318 B
Plaintext
(use IO)
|
|
(use Int)
|
|
|
|
(defmodule A
|
|
(defn id [x] x)
|
|
(defn hard [a b c]
|
|
(if a b c)))
|
|
|
|
(defn id [x] x)
|
|
|
|
(defmodule B
|
|
(defn id2 [x] (id x)))
|
|
|
|
(defn main []
|
|
(do
|
|
(println (ref (B.id2 @"hej")))
|
|
(println (ref (str (A.hard true 10 20))))
|
|
(println (ref (str (A.hard false 10 20))))))
|
|
|
|
(build)
|
|
(run)
|
|
(quit)
|