(alist-cons): Define just as acons, not a call to acons.

diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index 6137618..d6625c1 100644 (file)
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -616,8 +616,7 @@
 
 ;;; Association lists
 
-(define (alist-cons key datum alist)
-  (acons key datum alist))
+(define alist-cons acons)
 
 (define (alist-copy alist)
   (let lp ((a alist)