From mboxrd@z Thu Jan  1 00:00:00 1970
From: Nikita Karetnikov <nikita@karetnikov.org>
Subject: Re: guix-package --roll-back
Date: Fri, 11 Jan 2013 00:48:22 -0500
Message-ID: <87vcb4jmm8.fsf@karetnikov.org>
References: <871uejyq9z.fsf@karetnikov.org> <874nj4sbfe.fsf@karetnikov.org>
	<87y5gf8sm1.fsf@gnu.org> <87hamy4yaj.fsf@karetnikov.org>
	<87pq1m5nxy.fsf@gnu.org> <87obh43j7r.fsf@karetnikov.org>
	<87vcbbqvw1.fsf@gnu.org> <87fw2ai3e1.fsf@karetnikov.org>
	<8738y8ekst.fsf@gnu.org>
Mime-Version: 1.0
Content-Type: multipart/signed; boundary="=-=-=";
	micalg=pgp-sha1; protocol="application/pgp-signature"
Return-path: <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:35211)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <nikita@karetnikov.org>) id 1TtXTa-0002du-Dw
	for bug-guix@gnu.org; Fri, 11 Jan 2013 00:48:24 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <nikita@karetnikov.org>) id 1TtXTX-0002gI-3J
	for bug-guix@gnu.org; Fri, 11 Jan 2013 00:48:22 -0500
In-Reply-To: <8738y8ekst.fsf@gnu.org> ("Ludovic =?utf-8?Q?Court=C3=A8s=22'?=
	=?utf-8?Q?s?= message of "(unknown date)")
List-Id: Bug reports for GNU Guix <bug-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/bug-guix>
List-Post: <mailto:bug-guix@gnu.org>
List-Help: <mailto:bug-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=subscribe>
Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
Sender: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
To: Ludovic =?utf-8?Q?Court=C3=A8s?= <ludo@gnu.org>
Cc: bug-guix@gnu.org

--=-=-=
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable

> See SRFI-37 in Guile=E2=80=99s manual.

Yeah, I've already checked it, but it's very brief.

I created a simple function to test command-line options, but I'm having
the same problems.  Here is the function:

(define* (foo #:optional arg)
  (if arg
      (simple-format #t "Just ~a~%" arg)
      (simple-format #t "Nothing~%")))

The following version works:

(option '("foo") #f #t
        (lambda (opt name arg result)
          (foo arg)
          (exit 0)))

# ./pre-inst-env guix-package --foo=3D42
Just 42

# ./pre-inst-env guix-package --foo
Nothing

This one doesn't work at all:

(option '("foo") #f #t
        (lambda (opt name arg result)
          (alist-cons 'foo arg result)))

Actually, the above helped me to understand that we want '--roll-back'
to behave differently than '--foo'.  '--roll-back' shouldn't accept any
options at all, but it should somehow get the argument of '--profile'.
How can I do it?

Nikita

--=-=-=
Content-Type: application/pgp-signature

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)

iQIcBAEBAgAGBQJQ76fDAAoJEM+IQzI9IQ38L9gP+wdjxWEP5t6CG5TtU50XQoD9
4FUUDgQfEFopk4R21YDREq5nFOuLQT3jgKwXf4xHSIVUDf14O3Kmuj0SBpZJ7Jmk
HxSKct8UL7cnB7gy1kaUIspIZjPQ3F/6j8A3znSasWW0iFG2eL3zfZ/vVQnI7AVF
JOEnUKQv+zJxh00BQPHsjLzoF5/CuQRjCAK+OGCPqOXAUAAaI8wa2JPoCH7y4zVr
GjUMOyevFlgfmVaIqjo3zbs6Ntan9mrfgZPMpks1JWr/LrUB1WkDm+HeGCv4pmAV
bGWLx2MtOkBGko0MBffs5/BxYbM0dQfJ0etObuN1GqOFC8s7tsH1lVfQSVuCcbiZ
jPSVKet1dVQJyaLrtRwv8gpJZYE0sZJLOHBh83POZfDFIiCpsetDeOQkV7ZyM2Ty
dwDnMkpypdrMvVt/ElAhMFbBlkqJhoBxnXXskRKrVrctv95AdZudfLLNaVw8uBZT
C2U8n1zRKxIRv6JgncBVW7bI4SYl/+lxfIGHOPGzunojkzrXzjUAuFZqba8EeQzT
NXjhSuPeZ3gCPY4iBEOMv+cDWlPPnI7p2No7XoBUytUQv93aHFKNJisHSHAWf43U
JxkKcynbwQM9AbyB+3FtpUjT8159NAKO6m1pVkzfJ2ofRYMhCGhGmvLi3uTPJ2/O
/BV3KLFi9Ey4taeol+KI
=LHXW
-----END PGP SIGNATURE-----
--=-=-=--