From patchwork Thu Aug 24 09:05:26 2023 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Ramin Honary X-Patchwork-Id: 53190 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 4092B27BBE2; Thu, 24 Aug 2023 14:14:37 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.7 required=5.0 tests=BAYES_00,DKIM_ADSP_CUSTOM_MED, DKIM_INVALID,DKIM_SIGNED,FREEMAIL_FROM,MAILING_LIST_MULTI, SPF_HELO_PASS,URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 05D5527BBE9 for ; Thu, 24 Aug 2023 14:14:34 +0100 (BST) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qZAAL-0000SV-1V; Thu, 24 Aug 2023 09:14:25 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qZ7yQ-0002o3-NJ for guix-patches@gnu.org; Thu, 24 Aug 2023 06:53:59 -0400 Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1qZ7yQ-0005lH-4M for guix-patches@gnu.org; Thu, 24 Aug 2023 06:53:58 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1qZ7yU-0007Uo-0X for guix-patches@gnu.org; Thu, 24 Aug 2023 06:54:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#65494] [PATCH] gnu: Add stklos. Resent-From: Ramin Honary Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Thu, 24 Aug 2023 10:54:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 65494 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 65494@debbugs.gnu.org X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.169287439928748 (code B ref -1); Thu, 24 Aug 2023 10:54:01 +0000 Received: (at submit) by debbugs.gnu.org; 24 Aug 2023 10:53:19 +0000 Received: from localhost ([127.0.0.1]:36242 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qZ7xm-0007Tb-LR for submit@debbugs.gnu.org; Thu, 24 Aug 2023 06:53:19 -0400 Received: from lists.gnu.org ([2001:470:142::17]:41876) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qZ6Hq-0004Ig-Li for submit@debbugs.gnu.org; Thu, 24 Aug 2023 05:05:55 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qZ6Hh-0001n6-4J for guix-patches@gnu.org; Thu, 24 Aug 2023 05:05:45 -0400 Received: from mail-yb1-xb35.google.com ([2607:f8b0:4864:20::b35]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1qZ6He-0006lj-GS for guix-patches@gnu.org; Thu, 24 Aug 2023 05:05:44 -0400 Received: by mail-yb1-xb35.google.com with SMTP id 3f1490d57ef6-d780bca9275so192148276.1 for ; Thu, 24 Aug 2023 02:05:39 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20221208; t=1692867939; x=1693472739; h=to:subject:message-id:date:from:mime-version:from:to:cc:subject :date:message-id:reply-to; bh=jLuRIK/Il+lnKey/5sdWjsmpEfjUgVPkuGprTH/Krxs=; b=D7wJI1KJuwn0Rqz1fWJ6eTyygCXGALJJFg6lDKjzs6/ldj6f9s3sc0HptHTd5dJ+y8 9DkiN7ecoP0wJGDISmhv0Vl2LxC0j7rFs7uqIB8hbik3sjk/5WcPwtA0ZbrKbxq3KYLz 2iPQ6UsksY4WsbivJe5tRUjGwuFZvZyYm4LH7mDdabp7B5iCc5IBIKKsG5aUMDCIKP40 +LVDx5CcPZA3obSPDiSEM8v8EGWSwMPLwU+fqHAVOnao3U23LPk0xeq8c/3WUVtN6j/N N9mYp6FC1dG5XkCu82FZNCcV7PVVZJPjNWzj9vPBKs8UBV+fWmvXgSQw2g1/WLY15OU+ acnw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20221208; t=1692867939; x=1693472739; h=to:subject:message-id:date:from:mime-version:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=jLuRIK/Il+lnKey/5sdWjsmpEfjUgVPkuGprTH/Krxs=; b=FOnO3m8Pu5iInXuxKeKjRKZGZVXHi15RqUbNpJs4zBdRclSpIs0YArMS8X5gbNj9g+ Xw0vNshACaOGvAgtC/+oVEecDA0fMaP492hR1dRu5lJkPaeHQU3klpva7P6k+Ra0vCnJ wEwp4jkxdtJERHPn/pZvlj3xalOOjkwS5jaQY5e3m44pATJGVWdH1SWvPBphwOaDOR8N eddyPPCTMhtfZiz8TqYFhCPbv+PO3DmhsGWOExXFdNvS/PVIhZH460HtD0KtbqzA8de5 loN53ArTm9SdQ0zzS7MQoC0lwelVBWOsLLic9/uoYSE+/n4qFCF/f3116uW4PqfmGBQ+ PUEA== X-Gm-Message-State: AOJu0YzUmJdpYAZ2s6fXYaW+/rlUkumgDtD+LOYFC7DM5PP67DbMuvqz 7lH1g4hX7qvlbpw+3XoBDxd6J5bRDs9+SIvmQULEhnIe X-Google-Smtp-Source: AGHT+IGwAwisoRNHIF/LqIbgSzaTnVWQFczvNvqdE1sn8QwyTvK/tXk8vgmTWQ8Y4Ow1FPSx2Hvv0GD5GWVpluLHcvs= X-Received: by 2002:a5b:24f:0:b0:cae:d40f:5934 with SMTP id g15-20020a5b024f000000b00caed40f5934mr13724763ybp.27.1692867937457; Thu, 24 Aug 2023 02:05:37 -0700 (PDT) MIME-Version: 1.0 From: Ramin Honary Date: Thu, 24 Aug 2023 18:05:26 +0900 Message-ID: Received-SPF: pass client-ip=2607:f8b0:4864:20::b35; envelope-from=ramin.honary@gmail.com; helo=mail-yb1-xb35.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Mailman-Approved-At: Thu, 24 Aug 2023 06:53:17 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-Mailman-Approved-At: Thu, 24 Aug 2023 09:14:24 -0400 X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org X-getmail-retrieved-from-mailbox: Patches Dear Guix Package maintainers: I have created a Guix package for the STklos Scheme compiler. (Thanks to Andrew Tropin for teaching me how!) I would appreciate a code review, thank for your time! Best regards, -- Ramin Honary From 465538f4b2824f49d99e4eef799f25f644a37bbc Mon Sep 17 00:00:00 2001 Message-Id: <465538f4b2824f49d99e4eef799f25f644a37bbc.1692867653.git.ramin.honary@cross-compass.com> From: Ramin Honary Date: Thu, 24 Aug 2023 17:57:51 +0900 Subject: [PATCH] gnu: Add stklos. * gnu/packages/scheme.scm (stklos): New variable. --- gnu/packages/scheme.scm | 48 +++++++++++++++++++++++++++++++++++++++-- 1 file changed, 46 insertions(+), 2 deletions(-) diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm index c0e2e3ab48..611e0344e0 100644 --- a/gnu/packages/scheme.scm +++ b/gnu/packages/scheme.scm @@ -42,8 +42,8 @@ (define-module (gnu packages scheme) #:use-module (gnu packages) #:use-module ((guix licenses) - #:select (gpl2+ lgpl2.0+ lgpl2.1 lgpl2.1+ lgpl3+ asl2.0 bsd-3 - cc-by-sa4.0 non-copyleft expat public-domain)) + #:select (gpl2 gpl2+ lgpl2.0+ lgpl2.1 lgpl2.1+ lgpl3+ asl2.0 + bsd-3 cc-by-sa4.0 non-copyleft expat public-domain)) #:use-module (guix gexp) #:use-module (guix packages) #:use-module (guix download) @@ -1236,3 +1236,47 @@ (define-public emacs-gerbil-mode (description "Gerbil mode provides font-lock, indentation, navigation, and REPL for Gerbil code within Emacs."))) + +(define-public stklos + (package + (name "stklos") + (version "1.70") + (source (origin + (method url-fetch) + (uri (string-append "https://stklos.net/download/stklos-" + version ".tar.gz")) + (sha256 + (base32 + "1iw3pgycjz3kz3jd1855v2ngf8ib2almpf8v058n1mkj1qd2b88m")))) + (build-system gnu-build-system) + (arguments + (list + #:modules `((ice-9 ftw) + ,@%gnu-build-system-modules) + #:phases + #~(modify-phases %standard-phases + (add-before 'configure 'patch-sh-paths + (lambda* (#:key inputs #:allow-other-keys) + (let ((bash-bin (search-input-file inputs "/bin/bash"))) + (substitute* "configure" + (("/bin/sh") bash-bin))))) + (add-after 'configure 'patch-rm-paths + (lambda* (#:key inputs #:allow-other-keys) + (let ((rm-bin (search-input-file inputs "/bin/rm"))) + (ftw "." + (lambda (filename stat-info f) + (when (and + (equal? f 'regular) + (string=? (basename filename) "Makefile")) + (substitute* filename + (("/bin/rm") rm-bin))) + #t)))))))) + (home-page "https://stklos.net") + (synopsis "R7RS Scheme with CLOS-like object system") + (description + "STklos is a free Scheme system mostly compliant with the languages +features defined in R7RS small. The aim of this implementation is to be fast +as well as light. The implementation is based on an ad-hoc Virtual +Machine. STklos can also be compiled as a library and embedded in an +application.") + (license gpl2))) base-commit: 160f78a4d92205df986ed9efcce7d3aac188cb24 -- 2.34.1