From 578f205eff17c2ba4a06ae194824a3eed763a3b0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marc=20Nieper-Wi=C3=9Fkirchen?= Date: Thu, 7 Apr 2016 16:36:19 +0200 Subject: [PATCH] Update r5rs.sld Add missing identifiers from erratum 22 of http://trac.sacrideo.us/wg/wiki/R7RSSmallErrata. --- lib/scheme/r5rs.sld | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/scheme/r5rs.sld b/lib/scheme/r5rs.sld index cc23dad4..2edaa0bf 100644 --- a/lib/scheme/r5rs.sld +++ b/lib/scheme/r5rs.sld @@ -17,7 +17,7 @@ (scheme load) (only (chibi) null-environment scheme-report-environment)) (export - - * / + < <= = > >= abs acos and angle append apply asin assoc assq + - ... * / + < <= = => > >= _ abs acos and angle append apply asin assoc assq assv atan begin boolean? caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr @@ -33,8 +33,8 @@ char-upper-case? char-whitespace? char? char? char>=? close-input-port close-output-port complex? cond cons cos current-input-port current-output-port define define-syntax delay - denominator display do dynamic-wind eof-object? eq? equal? eqv? eval - even? exact->inexact exact? exp expt floor for-each force gcd if + denominator display do dynamic-wind else eof-object? eq? equal? eqv? + eval even? exact->inexact exact? exp expt floor for-each force gcd if imag-part inexact->exact inexact? input-port? integer->char integer? interaction-environment lambda lcm length let let-syntax let* letrec letrec-syntax list list->string list->vector list-ref list-tail list?