guile-srfi-123

commit dce0e50fe2d3f0472723bf1303d19a8e13cfb347
parent 55dcfebb456e5817a9809e82d31ef330c62026ed
Author: Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
Date:   Fri, 14 Aug 2015 10:12:50 +0200

Use %foo naming convention consistently.

Diffstat:
M
generic-ref-set.scm
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/generic-ref-set.scm b/generic-ref-set.scm
@@ -17,11 +17,11 @@
 
 (import
  (rename (except (scheme base) set!)
-         (define-record-type _define-record-type))
+         (define-record-type %define-record-type))
  (scheme case-lambda)
  (r6rs hashtables)
  (srfi 1)
- (rename (srfi 17) (set! _set!)))
+ (rename (srfi 17) (set! %set!)))
 
 ;;; Helpers
 
@@ -56,7 +56,7 @@
 (define-syntax set!
   (syntax-rules ()
     ((set! <place> <expression>)
-     (_set! <place> <expression>))
+     (%set! <place> <expression>))
     ((set! <object> <field> <value>)
      (let* ((object <object>)
             (setter (lookup-setter object)))
@@ -107,7 +107,7 @@
   (syntax-rules ()
     ((_ <name> <constructor> <pred> <field> ...)
      (begin
-       (_define-record-type <name> <constructor> <pred> <field> ...)
+       (%define-record-type <name> <constructor> <pred> <field> ...)
        (push! type-list <pred>)
        (register-record-getter <pred> <field> ...)
        (register-record-setter <pred> <field> ...)))))