this repo is setup to store some files to test require.toUrl
to run start a web browser at the root of this repo, for example:
cd 3246403
python -m SimpleHTTPServer
(ns logerror.core | |
(:require | |
[immutant.cache :as cache] | |
[clojure.tools.logging :as log])) | |
(println #'clojure.tools.logging/*logger-factory*) | |
(try | |
(def my-cache (cache/create "cache")) | |
(catch Exception e | |
(println #'clojure.tools.logging/*logger-factory*))) |
-file("examples/use_macros.fn", 1). | |
-module(use_macros). | |
-export([main/0]). | |
-file("examples/ms.hrl", 1). | |
what_am_i() -> a_function_in_the_macro_file. |
; ask for the name | |
(display "name? ") | |
; bind the input to a variable | |
($let ((name (read-line))) | |
; build the message and bind it t a variable | |
($let ((message (string-append "Hello " name "!\n"))) | |
; display the message | |
(display message))) |
; display the message | |
(display "hello world\n") |
; define a function to ask for a name | |
($define! ask-name ($lambda () | |
($sequence | |
(display "name? ") | |
(read-line)))) | |
; define a function to build the message | |
($define! build-message ($lambda (name) | |
(string-append "Hello " name "!\n"))) |
; define a function to ask for a name | |
($define! ask-name ($lambda () | |
($sequence | |
(display "name? ") | |
(read-line)))) | |
; define a function to build the message | |
($define! build-message ($lambda (name) | |
(string-append "Hello " name "!\n"))) |
; ask for the name | |
(display "name? ") | |
; display the message | |
(display (string-append "Hello " (read-line) "!\n")) |