File tree Expand file tree Collapse file tree 1 file changed +10
-10
lines changed Expand file tree Collapse file tree 1 file changed +10
-10
lines changed Original file line number Diff line number Diff line change @@ -489,16 +489,16 @@ FILE-NAME is the filename in which the breakpoints have been udpated."
489489    (let  ((set-breakpoints-req (dap--set-breakpoints-request
490490                                file-name
491491                                updated-file-breakpoints)))
492-       (-as- >  (dap--get-sessions) $ 
493-              (-filter  ' dap--session-running  $) 
494-              (--each $ 
495-                (dap--send-message set-breakpoints-req 
496-                                   (dap-- resp-handler 
497-                                    ( lambda  ( resp ) 
498-                                      (dap--update-breakpoints it 
499-                                                               resp 
500-                                                               file-name) ))
501-                                   it ))))
492+       (mapc  ( lambda  ( session ) 
493+               ( dap--send-message 
494+                set-breakpoints-req 
495+                (dap--resp-handler 
496+                 ( lambda  ( resp ) 
497+                   (dap--update-breakpoints session 
498+                                            resp 
499+                                            file-name))) 
500+                session ))
501+             (-filter  # 'dap--session-running  (dap--get-sessions ))))
502502    (dap--persist-breakpoints breakpoints)))
503503
504504(defun  dap-breakpoint-toggle  ()
 
 
   
 
     
   
   
          
    
    
     
    
      
     
     
    You can’t perform that action at this time.
  
 
    
  
    
      
        
     
       
      
     
   
 
    
    
  
 
  
 
     
    
0 commit comments