more simplified

tbaba · Apr 20, 2011 · 9ffeab8 · 9ffeab8
1 parent 32653af
commit 9ffeab8
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/useful.scm b/useful.scm
@@ -148,5 +148,4 @@
 
 (define one?
   (lambda (n)
-	(cond
-	  (else ( zero? (sub1 n))))))
+	(= n 1)))