From 424553e017718c54e219212b27a32b341ec6bd28 Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Sun, 27 Sep 2015 11:57:48 +0300
Subject: Clean up indentation rules

Move general indentation rules to "geiser-syntax".
---
 elisp/geiser-chicken.el | 64 ++++++++++++++++---------------------------------
 1 file changed, 20 insertions(+), 44 deletions(-)

(limited to 'elisp/geiser-chicken.el')

diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index ad95e83..65b494f 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -230,59 +230,35 @@ This function uses `geiser-chicken-init-file' if it exists."
    (geiser-syntax--simple-keywords geiser-chicken-builtin-keywords)))
 
 (geiser-syntax--scheme-indent
- (receive 2)
- (match 1)
- (match-lambda 0)
- (match-lambda* 0)
- (match-let scheme-let-indent)
- (match-let* 1)
- (match-letrec 1)
- (declare 0)
+ (assume 1)
+ (compiler-typecase 1)
  (cond-expand 0)
- (let-values scheme-let-indent)
- (let*-values scheme-let-indent)
- (letrec-values 1)
- (letrec* 1)
- (parameterize scheme-let-indent)
- (let-location 1)
- (foreign-lambda 2)
- (foreign-lambda* 2)
- (foreign-primitive 2)
- (foreign-safe-lambda 2)
- (foreign-safe-lambda* 2)
- (set! 1)
- (let-optionals* 2)
- (let-optionals 2)
  (condition-case 1)
- (fluid-let 1)
- (and-let* 1)
- (assume 1)
  (cut 1)
  (cute 1)
- (when 1)
- (unless 1)
+ (declare 0)
  (dotimes 1)
- (compiler-typecase 1)
  (ecase 1)
- (use 0)
- (require-extension 0)
- (import 0)
+ (fluid-let 1)
+ (foreign-lambda 2)
+ (foreign-lambda* 2)
+ (foreign-primitive 2)
+ (foreign-safe-lambda 2)
+ (foreign-safe-lambda* 2)
+ (functor 3)
  (handle-exceptions 2)
+ (import 0)
+ (let-location 1)
+ (let-optionals 2)
+ (let-optionals* 2)
+ (letrec-values 1)
+ (module 2)
  (regex-case 1)
- (define-inline 1)
- (define-constant 1)
- (define-syntax-rule 1)
- (define-record-type 1)
- (define-values 1)
- (define-record 1)
- (define-specialization 1)
- (define-type 1)
- (with-input-from-pipe 1)
- (with-output-to-pipe 1)
  (select 1)
- (functor 3)
- (define-interface 1)
- (module 2))
+ (set! 1)
+ (use 0)
+ (with-input-from-pipe 1)
+ (with-output-to-pipe 1))
 
 ;;; REPL startup
 
-- 
cgit v1.2.3