From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Stefan Monnier Newsgroups: gmane.lisp.guile.devel Subject: Re: guile 3 update: more number unboxing improvements Date: Wed, 29 Nov 2017 22:03:08 -0500 Message-ID: References: <874lpdwlfq.fsf@igalia.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1512011020 13733 195.159.176.226 (30 Nov 2017 03:03:40 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Thu, 30 Nov 2017 03:03:40 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Thu Nov 30 04:03:28 2017 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1eKF8J-0002lS-GJ for guile-devel@m.gmane.org; Thu, 30 Nov 2017 04:03:27 +0100 Original-Received: from localhost ([::1]:46063 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eKF8Q-0002NM-Kl for guile-devel@m.gmane.org; Wed, 29 Nov 2017 22:03:34 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:36304) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eKF8K-0002NF-8G for guile-devel@gnu.org; Wed, 29 Nov 2017 22:03:29 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eKF8F-00057n-CP for guile-devel@gnu.org; Wed, 29 Nov 2017 22:03:28 -0500 Original-Received: from [195.159.176.226] (port=38163 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eKF8F-00056c-6C for guile-devel@gnu.org; Wed, 29 Nov 2017 22:03:23 -0500 Original-Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1eKF82-0001ps-8s for guile-devel@gnu.org; Thu, 30 Nov 2017 04:03:10 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 19 Original-X-Complaints-To: usenet@blaine.gmane.org Cancel-Lock: sha1:OL3WcpoFy9SomPst+DVgBk6yMQk= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] [fuzzy] X-Received-From: 195.159.176.226 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Original-Sender: "guile-devel" Xref: news.gmane.org gmane.lisp.guile.devel:19391 Archived-At: > (define (out-of-range x) (error "out of range" x)) > (define (not-int x) (error "expected an integer" x)) > (cond > ((fixnum? x) > (if (<= -10 x 100) > (* x 2) > (out-of-range x))) > ((bignum? x) > (if (<= -10 x 100) > (* x 2) > (out-of-range x))) > (else > (not-int x))) Looks a bit like the result of "splitting tails", in this case, tho selectively. Stefan