[elpa] externals/crdt e7a3607 45/80: fix cl-block

[ELPA Syncer]

branch: externals/crdt
commit e7a36079002c383bbb877619248d27c256279665
Author: Qiantan Hong <qhong@mit.edu>
Commit: Qiantan Hong <qhong@mit.edu>

    fix cl-block
---
 crdt.el | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/crdt.el b/crdt.el
index e851eb2..26046b7 100644
--- a/crdt.el
+++ b/crdt.el
@@ -937,18 +937,18 @@ into current buffer."
 Verify that CRDT IDs in a document follows ascending order."
   (let* ((pos (point-min))
          (id (crdt--get-starting-id pos)))
-    (cl-block
-        (while t
-          (let* ((next-pos (next-single-property-change pos 'crdt-id))
-                 (next-id (if (< next-pos (point-max))
-                              (crdt--get-starting-id next-pos)
-                            (cl-return)))
-                 (prev-id (substring id)))
-            (crdt--set-id-offset id (+ (- next-pos pos) (crdt--id-offset id)))
-            (unless (string< prev-id next-id)
-              (error "Not monotonic!"))
-            (setq pos next-pos)
-            (setq id next-id))))))
+    (cl-block nil
+      (while t
+        (let* ((next-pos (next-single-property-change pos 'crdt-id))
+               (next-id (if (< next-pos (point-max))
+                            (crdt--get-starting-id next-pos)
+                          (cl-return)))
+               (prev-id (substring id)))
+          (crdt--set-id-offset id (+ (- next-pos pos) (crdt--id-offset id)))
+          (unless (string< prev-id next-id)
+            (error "Not monotonic!"))
+          (setq pos next-pos)
+          (setq id next-id))))))
 
 
 ;;; Network protocol