From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas Rottmann Newsgroups: gmane.lisp.guile.devel Subject: [PATCH] add rnrs unicode to the compound rnrs module Date: Sat, 19 Jun 2010 14:09:06 +0200 Message-ID: <87mxurusv1.fsf@delenn.lan> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: dough.gmane.org 1276949369 20923 80.91.229.12 (19 Jun 2010 12:09:29 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sat, 19 Jun 2010 12:09:29 +0000 (UTC) To: Guile Development Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Sat Jun 19 14:09:28 2010 connect(): No such file or directory Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1OPwrX-0004gN-Mm for guile-devel@m.gmane.org; Sat, 19 Jun 2010 14:09:27 +0200 Original-Received: from localhost ([127.0.0.1]:35815 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OPwrW-0003Gd-Sr for guile-devel@m.gmane.org; Sat, 19 Jun 2010 08:09:26 -0400 Original-Received: from [140.186.70.92] (port=56133 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OPwrM-0003GY-Cb for guile-devel@gnu.org; Sat, 19 Jun 2010 08:09:17 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OPwrL-0000ot-09 for guile-devel@gnu.org; Sat, 19 Jun 2010 08:09:16 -0400 Original-Received: from mail.gmx.net ([213.165.64.20]:35395) by eggs.gnu.org with smtp (Exim 4.69) (envelope-from ) id 1OPwrK-0000oc-Iw for guile-devel@gnu.org; Sat, 19 Jun 2010 08:09:14 -0400 Original-Received: (qmail invoked by alias); 19 Jun 2010 12:09:11 -0000 Original-Received: from 83-215-154-5.hage.dyn.salzburg-online.at (EHLO nathot.lan) [83.215.154.5] by mail.gmx.net (mp059) with SMTP; 19 Jun 2010 14:09:11 +0200 X-Authenticated: #3102804 X-Provags-ID: V01U2FsdGVkX19Z7LJ4sqNZpIIWIBZ7fJVtu3E258ormhBRw6X0qJ QxFHEImJzCg+SS Original-Received: from localhost (localhost.localdomain [127.0.0.1]) by nathot.lan (Postfix) with ESMTP id 386A03A62F for ; Sat, 19 Jun 2010 14:09:11 +0200 (CEST) Original-Received: from nathot.lan ([127.0.0.1]) by localhost (nathot.lan [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 9ZtrgQYxoE1e for ; Sat, 19 Jun 2010 14:09:07 +0200 (CEST) Original-Received: from delenn.lan (delenn.lan [192.168.3.11]) by nathot.lan (Postfix) with ESMTP id EDB293A62E for ; Sat, 19 Jun 2010 14:09:06 +0200 (CEST) Original-Received: by delenn.lan (Postfix, from userid 1000) id A8E3E74DC4; Sat, 19 Jun 2010 14:09:06 +0200 (CEST) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux) X-Y-GMX-Trusted: 0 X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:10513 Archived-At: --=-=-= The compound module (rnrs) was missing (rnrs unicode). --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=rnrs-unicode.diff From: Andreas Rottmann Subject: add rnrs unicode to the compound rnrs module * module/rnrs.scm: import rnrs unicode and export all of its procedures. --- module/rnrs.scm | 16 ++++++++++++++-- 1 files changed, 14 insertions(+), 2 deletions(-) diff --git a/module/rnrs.scm b/module/rnrs.scm index 5df53fe..4ba9e2a 100644 --- a/module/rnrs.scm +++ b/module/rnrs.scm @@ -212,7 +212,18 @@ make-variable-transformer syntax syntax-case identifier? bound-identifier=? free-identifier=? syntax->datum datum->syntax generate-temporaries with-syntax quasisyntax unsyntax - unsyntax-splicing syntax-violation) + unsyntax-splicing syntax-violation + + ;; (rnrs unicode) + + char-upcase char-downcase char-titlecase char-foldcase + char-ci=? char-ci? char-ci<=? char-ci>=? + char-alphabetic? char-numeric? char-whitespace? char-upper-case? + char-lower-case? char-title-case? char-general-category + string-upcase string-downcase string-titlecase string-foldcase + string-ci=? string-ci? string-ci<=? string-ci>=? + string-normalize-nfd string-normalize-nfkd string-normalize-nfc + string-normalize-nfkc) (import (rnrs arithmetic bitwise (6)) (rnrs arithmetic fixnums (6)) @@ -237,4 +248,5 @@ (rnrs records procedural (6)) (rnrs records syntactic (6)) (rnrs sorting (6)) - (rnrs syntax-case (6)))) + (rnrs syntax-case (6)) + (rnrs unicode (6)))) -- tg: (c399333..) t/rnrs-unicode (depends on: master) --=-=-= Regards, -- Andreas Rottmann -- --=-=-=--