mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-11 20:49:05 +03:00
29 lines
524 B
Plaintext
29 lines
524 B
Plaintext
(defn changing-target-of-ref []
|
|
(let [s1 @"hello"
|
|
s2 @"goodbye"
|
|
r &s1]
|
|
(do (set! r &s2)
|
|
(IO.println r))))
|
|
|
|
;; DISABLED FOR NOW
|
|
;; (defn set-derefed []
|
|
;; (let [s @"hello"
|
|
;; r &s]
|
|
;; (do (set! @r @"new")
|
|
;; (IO.println &s))))
|
|
|
|
;; (defn f [r]
|
|
;; (set! @r 100))
|
|
|
|
;; DISABLED FOR NOW
|
|
;; (defn set-in-parameter []
|
|
;; (let [x 1]
|
|
;; (do (f &x)
|
|
;; (IO.println &(str x)))))
|
|
|
|
(defn-do main []
|
|
(changing-target-of-ref)
|
|
;;(set-derefed)
|
|
;;(set-in-parameter)
|
|
)
|