diff --git a/goldfish/srfi/sicp.scm b/goldfish/srfi/sicp.scm new file mode 100644 index 0000000000000000000000000000000000000000..03715b7f8a41dc3f85f56055234ba280611cf782 --- /dev/null +++ b/goldfish/srfi/sicp.scm @@ -0,0 +1,20 @@ +; +; Copyright (C) 2024 The Goldfish Scheme Authors +; +; Licensed under the Apache License, Version 2.0 (the "License"); +; you may not use this file except in compliance with the License. +; You may obtain a copy of the License at +; +; http://www.apache.org/licenses/LICENSE-2.0 +; +; Unless required by applicable law or agreed to in writing, software +; distributed under the License is distributed on an "AS IS" BASIS, WITHOUT +; WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the +; License for the specific language governing permissions and limitations +; under the License. +; + +(define-library (srfi sicp) +(export true false nil runtime) +(import (srfi srfi-216))) + diff --git a/goldfish/srfi/srfi-216.scm b/goldfish/srfi/srfi-216.scm new file mode 100644 index 0000000000000000000000000000000000000000..05cb4e4567b924ccc52bdf47376a73983135f171 --- /dev/null +++ b/goldfish/srfi/srfi-216.scm @@ -0,0 +1,33 @@ +; +; Copyright (C) 2024 The Goldfish Scheme Authors +; +; Licensed under the Apache License, Version 2.0 (the "License"); +; you may not use this file except in compliance with the License. +; You may obtain a copy of the License at +; +; http://www.apache.org/licenses/LICENSE-2.0 +; +; Unless required by applicable law or agreed to in writing, software +; distributed under the License is distributed on an "AS IS" BASIS, WITHOUT +; WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the +; License for the specific language governing permissions and limitations +; under the License. +; + +(define-library (srfi srfi-216) +(export true false nil runtime) +(import (scheme time)) +(begin + +(define true #t) + +(define false #f) + +(define nil '()) + +(define (runtime) + (round (* 1000 (current-second)))) + +) ; end of begin +) ; end of define-library +