From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ricardo Wurmus Subject: Re: tree doesn't get called Date: Mon, 08 May 2017 22:19:23 +0200 Message-ID: <874lwvje44.fsf@elephly.net> References: <20170505172459.158487fc@openmailbox.org> <87y3u7khhu.fsf@elephly.net> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:38655) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d7p83-0001sD-WF for help-guix@gnu.org; Mon, 08 May 2017 16:19:37 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d7p7z-000472-5Y for help-guix@gnu.org; Mon, 08 May 2017 16:19:35 -0400 Received: from sender-of-o51.zoho.com ([135.84.80.216]:21049) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1d7p7y-00046i-Ts for help-guix@gnu.org; Mon, 08 May 2017 16:19:31 -0400 In-reply-to: List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org Sender: "Help-Guix" To: Catonano Cc: help-guix Here’s a version that works for me: --8<---------------cut here---------------start------------->8--- (define-public guile-miniadapton (let ((commit "1b5749422304567c96ac5367f2221dda9eff5880") (revision "1")) (package (name "guile-miniadapton") (version (string-append "0-" revision "." (string-take commit 9))) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/fisherdj/miniAdapton.git") (commit commit))) (file-name (string-append name "-" version "-checkout")) (sha256 (base32 "09q51zkw2fypad5xixskfzw2cjhjgs5cswdp3i7cpp651rb3zndh")))) (build-system gnu-build-system) (arguments `(#:modules ((guix build utils) (ice-9 popen) (ice-9 rdelim) (srfi srfi-1) (guix build gnu-build-system)) #:tests? #f ; there is no test target #:phases (modify-phases %standard-phases (delete 'configure) (delete 'build) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((cwd (getcwd)) (scm-files (find-files "." "\\.scm$")) (effective (read-line (open-pipe* OPEN_READ "guile" "-c" "(display (effective-version))"))) (module-dir (string-append (assoc-ref outputs "out") "/share/guile/site/" effective))) ;; Make installation directories. (mkdir-p module-dir) (setenv "GUILE_AUTO_COMPILE" "0") ;; Compile .scm files and install. (every (lambda (file) (let ((go-file (string-append module-dir "/" (basename file ".scm") ".go"))) ;; Install source module. (install-file file module-dir) ;; Compile and install module. (zero? (system* "guild" "compile" "-L" cwd "-o" go-file file)))) scm-files))))))) (inputs `(("guile" ,guile-2.2))) (home-page "https://github.com/fisherdj/miniAdapton") (synopsis "Minimal implementation of incremental computation in Guile Scheme") (description "This package provides a complete Scheme implementation of miniAdapton, which implements the core functionality of the Adapton system for incremental computation (also known as self-adjusting computation). Like Adapton, miniAdapton allows programmers to safely combine mutation and memoization. miniAdapton is built on top of an even simpler system, microAdapton. Both miniAdapton and microAdapton are designed to be easy to understand, extend, and port to host languages other than Scheme.") (license license:expat)))) --8<---------------cut here---------------end--------------->8--- If you have any questions about this just ask! -- Ricardo GPG: BCA6 89B6 3655 3801 C3C6 2150 197A 5888 235F ACAC https://elephly.net