From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.ciao.gmane.io!not-for-mail From: =?UTF-8?q?Nguy=E1=BB=85n=20Th=C3=A1i=20Ng=E1=BB=8Dc=20Duy?= Newsgroups: gmane.lisp.guile.devel Subject: [PATCH] Accept .sld as scheme extensions in r7rs Date: Sat, 15 Feb 2020 06:46:07 +0700 Message-ID: <20200214234607.6273-1-pclouds@gmail.com> Mime-Version: 1.0 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="ciao.gmane.io:159.69.161.202"; logging-data="4998"; mail-complaints-to="usenet@ciao.gmane.io" Cc: =?UTF-8?q?Nguy=E1=BB=85n=20Th=C3=A1i=20Ng=E1=BB=8Dc=20Duy?= To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Sat Feb 15 03:06:49 2020 Return-path: Envelope-to: guile-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1j2mr2-0001BR-Jh for guile-devel@m.gmane-mx.org; Sat, 15 Feb 2020 03:06:48 +0100 Original-Received: from localhost ([::1]:47446 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1j2mr1-000775-Ab for guile-devel@m.gmane-mx.org; Fri, 14 Feb 2020 21:06:47 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:51475) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1j2kf4-0007Qf-4P for guile-devel@gnu.org; Fri, 14 Feb 2020 18:46:19 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1j2kf2-0000dk-U6 for guile-devel@gnu.org; Fri, 14 Feb 2020 18:46:17 -0500 Original-Received: from mail-pl1-x644.google.com ([2607:f8b0:4864:20::644]:41816) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1j2kf2-0000ZV-Mt for guile-devel@gnu.org; Fri, 14 Feb 2020 18:46:16 -0500 Original-Received: by mail-pl1-x644.google.com with SMTP id t14so4287557plr.8 for ; Fri, 14 Feb 2020 15:46:14 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:date:message-id:mime-version:status:lines :content-transfer-encoding; bh=pgpZb1xPdnYtow3ZXd8Q3nfL4rY60D//AMEX+JkKAho=; b=CtSUgtpmzza0vfeZVEOwDV8pkwdjgG41I0WYUOV/nD4sEUUzBrSGDeskbABRe3ZZwh VXLlvYIPZmEMncAf2MqSLJnkJl6nK4Zge2NLlEPaIRf5MNXsaFyfeB/fBug6xnJBUshN 6V2jp8cUPvmQmWVHjvMZEU75c9GoWSHHBMtEHHsyngVCXTUDWYfQL/V0anMb56tOC9w3 h5X5qwjpr4Fy1UJmq299iCLNuxrqOOrSMJKdGrQQp1OaV17ow61jAjFlj5qd+0e0nIQs Rsrsb8tjWheCfav/OgYiVOonj1l4HfwzedbKUjXgtX4a/WCHDwMnVTL/13upsfnPIII9 aV0Q== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:date:message-id:mime-version :status:lines:content-transfer-encoding; bh=pgpZb1xPdnYtow3ZXd8Q3nfL4rY60D//AMEX+JkKAho=; b=sg5JMsef21K5L34FB+7XRUeY+o3p8rxu+5L/p7uB0YU1KQSUcPeoIp1TEX3loA7yQm 8Ohs4I9pdK315agdFlWdN7ArXlCg1g6ZhpJz36WGG6K4JwfFeyPNmhvWgD0YMVTtAljh ZKtifSMk1Hp4M/L3IYN73EnvCQbV9+MA0InHJf4DDZg44B1rc14j7shAVvZV1DNzbGpv kdu29d+cfpAX9qPoE+GHGAcdenwB+VfR3uZ24fwPbVen/Fi/mcghFhjP1oZL3qnWP/mq LURULykX6lAYxkJXuEZOwndxPc6oYxxQZIqyQE+w2gmWS150/JlM8D0pXCix+uAXFmUe RlhA== X-Gm-Message-State: APjAAAU/5MS9FX4IhcTrt8uXcXc1UAtRVdMRXp0zzq3nahymWeZ++P/o TaRS8fYn5yQzObYLntHL9OtXIMKr X-Google-Smtp-Source: APXvYqxUlY89mUzbMHu1R0d57eQki1eiD0BfGoGfaAFl9TFRt0hhhBNz3X9e2D57AUhZyoFDJGBtyw== X-Received: by 2002:a17:902:9f98:: with SMTP id g24mr5726911plq.325.1581723973418; Fri, 14 Feb 2020 15:46:13 -0800 (PST) Original-Received: from ash ([115.76.190.254]) by smtp.gmail.com with ESMTPSA id l37sm7402279pjb.15.2020.02.14.15.46.11 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Fri, 14 Feb 2020 15:46:12 -0800 (PST) Original-Received: by ash (sSMTP sendmail emulation); Sat, 15 Feb 2020 06:46:08 +0700 X-Mailer: git-send-email 2.23.0.81.g691ad8b700 Original-Lines: 25 X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2607:f8b0:4864:20::644 X-Mailman-Approved-At: Fri, 14 Feb 2020 21:06:37 -0500 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.23 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-mx.org@gnu.org Original-Sender: "guile-devel" Xref: news.gmane.io gmane.lisp.guile.devel:20415 Archived-At: This is similar to 0bb980f12 (New function: install-r6rs!, 2019-09-25) which accepts .sls extension for r6rs. In r7rs, most portable libraries use .sld. * module/ice-9/boot-9.scm (install-r7rs!): Update %load-extensions. --- module/ice-9/boot-9.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 39efcb5e6..b2ba16361 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -4597,6 +4597,9 @@ R6RS. @xref{R6RS Incompatibilities} in the manual." "Make changes to the default environment to better conform to the R7RS." (install-r6rs!) + (set! %load-extensions + (cons* ".guile.sld" ".sld" + (delete ".guile.sld" (delete ".sld" (delete ".guile.sls" (delete ".sls" %load-extensions)))))) (read-enable 'r7rs-symbols)) -- 2.23.0.81.g691ad8b700