From ddf471ff812db6353bba5acb13816f4b8caef064 Mon Sep 17 00:00:00 2001 From: frese Date: Fri, 16 Jul 2004 14:00:05 +0000 Subject: [PATCH] - using sh as interpreter - open let-opt - removed a relict --- examples/passwd-wrapper.scm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/examples/passwd-wrapper.scm b/examples/passwd-wrapper.scm index fac5587..2162493 100755 --- a/examples/passwd-wrapper.scm +++ b/examples/passwd-wrapper.scm @@ -1,5 +1,5 @@ -#!/usr/local/bin/scsh \ --lm ../scheme/packages.scm -o threads -o chat-package -o expect-package -e main -s +#!/bin/sh +exec scsh -lm ../scheme/packages.scm -o threads -o chat-package -o expect-package -o let-opt -e main -s "$0" "$@" !# (define (assq/false key alist) @@ -135,10 +135,6 @@ Please choose a password with at least 2 character classes.") (define (verify-yp-password old-pw) (let ((prompts (yppasswd-prompts))) - (old-prompt (assq/false 'old prompts)) - (wrong (assq/false 'wrong-old prompts)) - ;; if prompted for new password, old one is correct - (correct (assq/false 'new prompts))) (call/cc (lambda (return) (chat (spawn ,(yppasswd-program) (= 2 1)) @@ -151,7 +147,7 @@ Please choose a password with at least 2 character classes.") (send/cr old-pw) (look-for (assq/false 'new-prompt prompts)) ;; if we are prompted for the new pw, old one was correct - #t)))) + #t))))) (define (change-yp-password old-pw new-pw) (let ((prompts (yppasswd-prompts))