From debbugs-submit-bounces@debbugs.gnu.org Wed Jun 26 17:53:27 2019 Received: (at submit) by debbugs.gnu.org; 26 Jun 2019 21:53:27 +0000 Received: from localhost ([127.0.0.1]:37143 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hgFr5-0005tn-KG for submit@debbugs.gnu.org; Wed, 26 Jun 2019 17:53:27 -0400 Received: from lists.gnu.org ([209.51.188.17]:34788) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hgFr4-0005ta-5G for submit@debbugs.gnu.org; Wed, 26 Jun 2019 17:53:26 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:33710) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hgFr3-0003KH-6H for bug-guile@gnu.org; Wed, 26 Jun 2019 17:53:25 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,FREEMAIL_FROM, HTML_MESSAGE autolearn=disabled version=3.3.2 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hgFr2-0005HP-CX for bug-guile@gnu.org; Wed, 26 Jun 2019 17:53:25 -0400 Received: from mail-wr1-x42c.google.com ([2a00:1450:4864:20::42c]:46688) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hgFr2-0005FM-3n for bug-guile@gnu.org; Wed, 26 Jun 2019 17:53:24 -0400 Received: by mail-wr1-x42c.google.com with SMTP id n4so23231wrw.13 for ; Wed, 26 Jun 2019 14:53:22 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:from:date:message-id:subject:to; bh=T/UdhhxeXnPDhq5ZyY+6pSHXyK18mG0ZouVwD5gFooY=; b=Bg8Hc9GeuprahzXILak1wKD20y8zbImjhyDrS7A9wu37/yOZwT3n3HQonVEMPyzosk QP3h1gVnl/SNJy6G8eFomMCVb/KX03lDQE/knHUkqgYP3OknS29Y3AEhlSSygn7sh60v hqVpkBi2C/0qzPGBt068+FhdH6uH1mbPwV372h1/bTNmk9RCXB7G2wfggMPViOcrjH8m yYdEm4eYSQw1EYRav8lz53ZCCYRunKCUpzcixhWW/bheoLmBt9z3BFgpzMEipPfruzTH ycgxG3+5EwP/lADSTkmEagLVewJiKwiN48z2CXBg7vYyxfMU3RK2VnGveaZ+A6H9ONcW JvbA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=T/UdhhxeXnPDhq5ZyY+6pSHXyK18mG0ZouVwD5gFooY=; b=YIZEpo1wBd7P3LeDyzJad9OoGTcQ1SdhQJXnfh7tVZrPpaMfmnGFvzNSMFQOPhEO1s PaJA3fTI8X5u8BKJX1nTdMxQ3fXIbs1XY52+WGMpdvNdQFwrBl3llt0XaQ9/hUBTPjFK HRPZD6XFNBYeIZcNb0ZYoUexUA0TPaRLXVh7vNP5HjO6zQKThoyp95G6/VzAnZL1dNwC 2xH02GaPguVu+v7RKFZ7p4Z8gCnb9gW7CMnQhn4ps3a9Ryg4DngbMgCEgj86fUWUC72s W9hqTyp2uN6qSy6URtXZ+4UlpI1ksbrKXhI4XMT5wKxhiKatBtY7Gpv0IbJE+vUy6KCg Gxxg== X-Gm-Message-State: APjAAAXcHlEOtjLJf0krYkxgLz6EODBDvtiTuDuXA7BpHuy8M4z+Wabb U6Zrv1hdZtUeKpHxZnX4t+t5gXsbC++IGGuZ7ovvZaU7 X-Google-Smtp-Source: APXvYqy207zAqMlxssEbqNO59uvmHqyjviXzbRA8ZjBiupQbDadzsgwqjVu4OfolGZ+PRr7eTO8mlgoMWMu/cC3a9gg= X-Received: by 2002:a5d:4b12:: with SMTP id v18mr17464wrq.123.1561586000969; Wed, 26 Jun 2019 14:53:20 -0700 (PDT) MIME-Version: 1.0 From: Stefan Israelsson Tampe Date: Wed, 26 Jun 2019 23:53:10 +0200 Message-ID: Subject: < operator does not work inside function regarding goops To: bug-guile@gnu.org Content-Type: multipart/alternative; boundary="000000000000dfc35e058c4112dc" X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2a00:1450:4864:20::42c X-Spam-Score: -1.3 (-) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -2.3 (--) --000000000000dfc35e058c4112dc Content-Type: text/plain; charset="UTF-8" For guile 2.9 Executing (use-modules (oop goops)) (define-method (< (s1 ) (s2 )) (pk 'wow) #f) (define (f x) (< x x)) (f "a") results in : unnamed port>:3:14: In procedure f: In procedure nan?: Wrong type argument in position 1: "a" --000000000000dfc35e058c4112dc Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
For guile 2.9

Executing=C2=A0 (use-modules (oop goops))
=C2=A0 (define-method (< (s1 <st= ring>) (s2 <string>)) (pk 'wow) #f)
=C2=A0 (define (f x) (&= lt; x x))
=C2=A0 (f "a")

results= in :

=
= =C2=A0 =C2=A0unnamed port>:3:14: In procedure f:=C2=A0
<= div>=C2=A0 =C2=A0In procedure nan?: W= rong type argument in position 1: "a"

--000000000000dfc35e058c4112dc--