scheme: init

Lang.gren.in

@@ -167,6 +167,7 @@ def(Concurrency, concurrency,
     Concurrency,
     Features geared towards concurrency,
     HardwareThreads,  Hardware Threads,      Synchronization primitives for using multi-threaded CPU capabilities directly,
+    CallCC,           call/cc,               Continuations,
     Coroutines,       Coroutines,            «Functions can suspend execution, yield to a scheduler and resume later»,
     Actors,           Actors,                Communicating actors or processes,
     STM,              STM,                   Software Transactional Memory,

benchmark/helloworld/scheme/Dockerfile

@@ -0,0 +1,11 @@
+FROM alpine:latest
+
+RUN apk --no-cache add gcc musl-dev
+RUN apk --no-cache add chicken chicken-dev
+
+COPY hello.scm hello.scm
+RUN chicken hello.scm -explicit-use
+RUN gcc -static -I/usr/include/chicken hello.c -O2 -fomit-frame-pointer -fno-strict-aliasing -o hello -lchicken
+RUN strip hello
+RUN ./hello
+RUN stat -c '"scheme" -> %s' hello > result

benchmark/helloworld/scheme/hello.scm

@@ -0,0 +1,2 @@
+(import scheme)
+(display "Hello, World!\n")

lang/scheme

@@ -0,0 +1,41 @@
+language = "scheme"
+name = "Scheme"
+homepage = Just "https://www.scheme.org/"
+spec = Formal
+status = Active
+
+impl = Standalone
+domain = [ GeneralPurpose, Extension ]
+platform = [ Linux, Windows, MacOS ]
+
+typing = Dynamic
+safety = MemorySafe
+mm = AutomaticMM
+everything = AList
+
+paradigms = [ Imperative, Functional ]
+parallelism = [ ]
+features = [ Closures, Macros, MutableState, Reflection, Introspection, Homoiconic ]
+concurrency = [ CallCC ]
+runtime = [ Stack, Interpreter, GarbageCollector, ErrorHandling, Abstraction, VirtualMachine ]
+
+orthogonality = Impressive
+example =
+  """
+  (define (take-eol cs)
+    (let loop ((c (cs-take cs)))
+      (unless (eqv? c #\\newline)
+              (loop (cs-take cs)))))
+
+  (define (token-syntax cs)
+    (let ((c (cs-take cs)))
+      (call/cc (lambda (ret)
+        (if (and (eqv? c #\\-) (eqv? (cs-peek cs) #\\-))
+            (begin (take-eol cs)
+                   (ret 'comment)))
+        (if (memv c punct-chars)
+            (string->symbol (string c))
+            (error (string-append
+              "unexpected character \\"" (string c)
+              "\\" at " (cs-pos cs))))))))
+  """