From 472c728c46e6a8194ac1e1318ee9b234f78430e8 Mon Sep 17 00:00:00 2001 From: Daphne Preston-Kendal Date: Fri, 18 Oct 2024 19:29:35 +0200 Subject: [PATCH] Add some of the easier/smaller R6RS libraries --- lib/rnrs/control.sld | 6 ++++++ lib/rnrs/eval.sld | 4 ++++ lib/rnrs/mutable-pairs.sld | 3 +++ lib/rnrs/mutable-strings.sld | 4 ++++ lib/rnrs/programs.sld | 4 ++++ lib/rnrs/sorting.sld | 5 +++++ 6 files changed, 26 insertions(+) create mode 100644 lib/rnrs/control.sld create mode 100644 lib/rnrs/eval.sld create mode 100644 lib/rnrs/mutable-pairs.sld create mode 100644 lib/rnrs/mutable-strings.sld create mode 100644 lib/rnrs/programs.sld create mode 100644 lib/rnrs/sorting.sld diff --git a/lib/rnrs/control.sld b/lib/rnrs/control.sld new file mode 100644 index 00000000..011b97c1 --- /dev/null +++ b/lib/rnrs/control.sld @@ -0,0 +1,6 @@ +(library (rnrs control) + (export when unless + do + case-lambda) + (import (scheme base) + (scheme case-lambda))) diff --git a/lib/rnrs/eval.sld b/lib/rnrs/eval.sld new file mode 100644 index 00000000..43c91da1 --- /dev/null +++ b/lib/rnrs/eval.sld @@ -0,0 +1,4 @@ +(library (rnrs eval) + (export eval + environment) + (import (scheme eval))) diff --git a/lib/rnrs/mutable-pairs.sld b/lib/rnrs/mutable-pairs.sld new file mode 100644 index 00000000..f4ecac8f --- /dev/null +++ b/lib/rnrs/mutable-pairs.sld @@ -0,0 +1,3 @@ +(library (rnrs mutable-pairs) + (export set-car! set-cdr!) + (import (scheme base))) diff --git a/lib/rnrs/mutable-strings.sld b/lib/rnrs/mutable-strings.sld new file mode 100644 index 00000000..531a44f7 --- /dev/null +++ b/lib/rnrs/mutable-strings.sld @@ -0,0 +1,4 @@ +(library (rnrs mutable-strings) + (export string-set! + string-fill!) + (import (scheme base))) diff --git a/lib/rnrs/programs.sld b/lib/rnrs/programs.sld new file mode 100644 index 00000000..a0908fa0 --- /dev/null +++ b/lib/rnrs/programs.sld @@ -0,0 +1,4 @@ +(library (rnrs programs) + (export command-line + exit) + (import (scheme process-context))) diff --git a/lib/rnrs/sorting.sld b/lib/rnrs/sorting.sld new file mode 100644 index 00000000..88ec5401 --- /dev/null +++ b/lib/rnrs/sorting.sld @@ -0,0 +1,5 @@ +(library (rnrs sorting) + (export (rename list-stable-sort list-sort) + (rename vector-stable-sort vector-sort) + (rename vector-stable-sort! vector-sort!)) + (import (srfi 132)))